Объединение нескольких книг в одну основную книгу

---

Я работаю над объединением нескольких рабочих книг первого листа в основной рабочий лист с помощью кода MS Office 2013 VBA. Все работает нормально, за исключением того, что при копировании данных из исходных листов он копирует только их часть (например, лист А имеет 190 столбцов, а лист в-250 столбцов, а лист с-так далее... но он импортирует только 16 столбцов из листа А и 10 из листа В, но не все из них), вот код, который я написал для него:


Любая помощь будет очень признательна :)

Что я уже пробовал:

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")
 
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("C:\Users\hnoorzai\Desktop\Newfolder")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
    Set bookList = Workbooks.Open(everyObj)
 
    'Change B3:H to the range your working on and also B in B65536 to any column required.
    bookList.Worksheets(1).Range("B3:H" & Range("B65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
 
    'Below only change "B" column name to your required column name
    Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial
    Application.CutCopyMode = False
    bookList.Close
Next
End Sub

---