fpath = "\\location\"
fname = "folder_" & Format(dte, "ddmmyyyy")
Set srcWkb = ActiveWorkbook
Worksheets("Thatworksheet").Copy
Set destWkb = ActiveWorkbook
With destWkb.Sheets("Thatworksheet").UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With...