Place this macro in a standard module in the Sched_Example workbook and run it from there.
Sub CopyDataAndSave()
Application.ScreenUpdating = False
Dim desWB As Workbook, desWS As Worksheet, srcWS As Worksheet
Set srcWS = ThisWorkbook.Sheets("Outputs")
Set desWB = Workbooks.Open(Environ("userprofile") & "\Desktop\Upwork\Model_Template.xlsx")
Set desWS = Sheets("Input")
With srcWS
.Range("B12:M13").Copy desWS.Range("Q4")
.Range("B14:M15 ").Copy desWS.Range("Q8")
End With
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & Application.PathSeparator & srcWS.Range("A3").Value & ".xlsx", FileFormat:=51
Application.ScreenUpdating = True
End Sub
Bookmarks