Macro append excel files

hello everybody,
I got 50 excel charts, each one with 10.000 lines and same variables, that i need to append. I would love to do it automatically. I'm on mac or PC, and i tried several macros i found on internet but no one worked. One of them is this one:

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

How can I do ? DO you know what is the problem in this macro ? or is there an other one ?

thank you very much

It would be simpler if you SHOW us the problem in a workbook.

Attach a sample workbook. Make sure there is just enough chart data to demonstrate your need using BEFORE sheet and an AFTER sheet if needed to show the update you're trying to complete or automate.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window (or use the paperclip icon).