XL 2016 Macro copy paste & Save as

Bonjour,

je cherche à créer une macro me permettant de copier / coller en valeru puis d'enregistrer le fichier dans un autre fichier.
Je reste bloquer pour la deuxième partie.
voici la macro

' Button1_Click Macro
' copy past value
'

'
Sheets("2. Summary").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("3.3 Analysts Report - WACC").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Sheets("Memo table").Activate
Range("A1").Select
Application.Calculation = xlAutomatic
ChDir "C:\Users\yaboutaher\Desktop\Perso"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\yaboutaher\Desktop\Perso" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Je précise que je suis novice dans les macros excel...