Kopieren Sie alle Excel Dateien in einen Ordner "C:\Temp"
Öffnen Sie ein neues Excel Arbeitsblatt.
Rechtsklick auf das Icon ganz oben links und "Viewcode" und dann diesen Code einfügen und ausführen.
 
 
 Sub MergeSheets()
 Dim SrcBook As Workbook
 Dim fso As Object, f As Object, ff As Object, f1 As Object
 
 Application.ScreenUpdating = False
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.Getfolder("C:\Temp")
 Set ff = f.Files
 
 For Each f1 In ff
 Set SrcBook = Workbooks.Open(f1)
 Range("A1:IV" & Range("A65536").End(xlUp).Row).Copy
 ThisWorkbook.Worksheets(1).Activate
 Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
 Application.CutCopyMode = False
 SrcBook.Close
 Next
 End Sub