Macro does not work

Hello,

I need to copy all the files in the same folder and paste to a combined file.
However, it's always the case that the first files in the folder are not copied fully.
For example, in a folder with 50 files.
File 1 has 2000 lines, and only 500 lines are copied.
File 2 has 3000 lines, and only 300 lines are copied.
...
File 7 has 1000 lines, and only 10 lines are copied.

The rest, from file 8- 50 are okie (although some files not 100% of the lines are copied).

Could you help me to understand why the below code always have problem for the first several files in the folder?

Really appreciate your help!
Chau

=======================================================================================

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("O:\Entrepot\Group\Whse\CHAU\Combine files into 1 sheet\PUROLATOR")
    Set filesObj = dirObj.Files
    For Each everyObj In filesObj
    Set bookList = Workbooks.Open(everyObj)
    
    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Combined")
    
    Dim LastRow As Long
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    Range("A2:GF" & LastRow).Copy
    ThisWorkbook.Worksheets(1).Activate
    Range("A500000").End(xlUp).Offset(1, 0).PasteSpecial
    Application.CutCopyMode = False
    bookList.Close
    Next
    
End Sub

=================================================

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: I have added them for you - this time

Sub simpleXlsMerger()
    
    Dim objFolder As Object, objFile As Object
    Dim LastRow As Long
    
    Application.ScreenUpdating = False
    
    Set objFolder = CreateObject("Scripting.FileSystemObject").Getfolder("O:\Entrepot\Group\Whse\CHAU\Combine files into 1 sheet\PUROLATOR")
    
    For Each objFile In objFolder.Files
        With Workbooks.Open(objFile)
            With .Worksheets("Combined")
                LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
                .Range("A2:GF" & LastRow).Copy
                ThisWorkbook.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
                Application.CutCopyMode = False
            End With
            .Close SaveChanges:=False
        End With
    Next
    
    Application.ScreenUpdating = True
    
End Sub