Start by creating a sheet named "Master" and then run this macro. The macro does not create a sheet called "Master" for you. Do it manually. Also you didn't specify if you had headers so I assumed you didn't. If you have headers, just change everywhere that you see "A1" and make it "A2".Sub myMacro()master = "Master"lastRow = Sheets("Sheet 2").Range("A" & Rows.Count).End(xlUp).RowSheets("Sheet 2").Range("A1:Z" & lastRow).CopyActiveSheet.Paste Destination:= Sheets(master).Range("A1")CutCopyMode = FalseFor Each wksht in WorkbooksIf wksht <> "Sheet 2" ThennextRow = Sheets(master).Range("A" & Rows.Count).End(xlUp).Row + 1lastRow = Sheets(wksht).Range("A" & Rows.Count).End(xlUp).RowSheets(wksht).Range("A1:Z" & lastRow).CopyActiveSheet.Paste Destination:= Sheets(master).Range("A" & next row)CutCopyMode = FalseEnd IfNext wkshtEnd Sub