macro create file copy

Change this line to your folder of choice

    name1 = Foglio2.Range("Z1").Value
   
    'CurFolder = ActiveWorkbook.path
CurFolder = "C:\folder_of_your_choice"
        
    DestFolder = CurFolder & "\" & name1 & "\"

No the log copy must remain.

 CurFolder = ActiveWorkbook.path

I look for another copy in another folder