Copy multiple excel sheets to one
First add a sheet and rename the label to "MASTER" than run the below macro. Sub CopyDataToMaster() Sheets("Master").Activate For a = 2 To Sheets.Count Sheets(a).Select Rows("4:4").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets("Master").Select R = Sheets("Master").Range("A65536").End(xlUp).Row + 1 Sheets("Master").Cells(R, 1).Select ActiveSheet.Paste Next MsgBox "Done" End Sub