Merge multiple excel documents into one sheet

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

Sub mergeExcel()
    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)
     
            Range("A2:F27" & Range("A65536").End(xlUp).Row).Copy
            ThisWorkbook.Worksheets(1).Activate


            Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
            Application.CutCopyMode = False
            bookList.Close
        Next
End Sub