How To Merge Excel Files -

Application.ScreenUpdating = False

Do While FileName <> "" Set wbSrc = Workbooks.Open(FolderPath & FileName) LastRow = wbSrc.Sheets(1).UsedRange.Rows.Count wbSrc.Sheets(1).UsedRange.Copy wbDest.Sheets(1).Cells(wbDest.Sheets(1).UsedRange.Rows.Count + 1, 1).PasteSpecial xlPasteValues wbSrc.Close SaveChanges:=False FileName = Dir() Loop how to merge excel files