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

Application.ScreenUpdating = False

How To Merge Excel Files May 2026

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

Application.ScreenUpdating = False