Excel VBA to consolidate multiple workbooks into one

Hello Experts,

I have many excel workbooks(in a folder) and would like to combine into one single workbook. For example each workbooks have columns from A to CL and each workbooks have the same heading only with varying number of rows in each documents. I do not know vba and will try to learn at some point in time, I have been using codes from web to do some other minor automation with vba. I used the following code and tested on some test workbooks and did append two workbooks contents into one but when doing the same with 2 real documents with one containing almost 5k rows and other a few hundred, it didnt append properly. Can you please help. I want the code to select all the  data in each worksheet and  just merge all into 1 workbook.Thanks in advance.

---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("D:\change\to\excel\files\path\here")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
 
'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
 
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub

source:http://www.oaultimate.com/office/merge-multiple-excel-files-into-a-single-spreadsheet-ms-excel-2007.html