Merge Multiple Same Structered Excel Files Into One Files Worksheets - This is a VBA Sub Routine

SimpleXlsMerger

Sub simpleXlsMerger()

    Dim bookList As Workbook
    Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
    Dim lastRow
    Application.ScreenUpdating = False
    Set mergeObj = CreateObject("Scripting.FileSystemObject")
    
    'Main folder which includes just excel files
    Set dirObj = mergeObj.Getfolder("C:\main")
    
    Set filesObj = dirObj.Files
    
    
    For Each everyObj In filesObj
        Set bookList = Workbooks.Open(everyObj)
        '//
        bookList.Worksheets(1).Activate
        lastRow = bookList.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
        Range("A2:G" & lastRow).Copy '// if A2 is first leftupper cell and G is the las column

        ThisWorkbook.Worksheets(1).Activate
        Range("A" & Range("A" & Rows.Count).End(xlUp).Row & ":G" & Range("A" & Rows.Count).End(xlUp).Row).PasteSpecial
        Application.CutCopyMode = False
        bookList.Close
    Next

End Sub