This should give you direction:
Sub worksheet_copy()
Thisworkbook.worksheets("SheetName").Range("A:AB").Copy _
destination:= workbooks("Copy Worksheet.xlsm").worksheets(1).cells(1,1)
End Sub
Why using those Windows()
stuff ? Be clear: use Workbook
for workbooks, Worksheet
for...worksheets.
And stop using those slow and unnecessary .Activate
!