"Definitely worth a look if you are inclined towards such tremendous pixel-art cuteness."
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
' Copies data from first sheet of source to destination wbSource.Sheets(1).UsedRange.Copy wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1, 0) how to merge excel files