Makro til "sheet" og ikke "ThisWorkbook"

Jeg har en makro, som jeg kan få til at fungere hvis den placeret i ThisWorkbook - men ikke hvis jeg vil have den placeret i et bestemt ark.
Er der nogen som kan fortælle mig hvorfor ?
Koden er:
[Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
Set dirObj = mergeObj.Getfolder("C:\File\Folder with sheets")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
Range("A2:AF" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub]