Copy your all individual workbooks into a single directory "C:Temp" Open a new workbook. Right click the leftmost excel icon and click viewcode then paste this code and run. Keep backup of your orignal data. 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
|