Sub salva()
fpath = ThisWorkbook.Path & "\"
filenam = Range("B14")
Sheets(1).Copy
Range("B1:P58").Value = Range("B1:P58").Value
Columns("Q:AD").Delete
ActiveWorkbook.SaveAs Filename:= _
fpath & filenam & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta