|Try this. I added the instructions to copy the headers to the new sheet.|
BTW...you said that you have "sub-headers" in Row 2, but I don't see them in your examples. I assumed that your text is correct and your examples are wrong. Therefore the copying of the data starts in A3.
The code assumes that you have data in Column A. It uses Column A to determine how many rows of data are in each sheet. If you don't have data in Column A, you'll need to tell me which Column contains data all the way down to the bottom of your data set.
Dim sht As Long, lastSrcRow As Long, nextDstRw As Long
'Add new Sheet at end of Workbook, copy headers
'Loop through all Sheets except for the new sheet
For sht = 1 To Sheets.Count - 1
'Determine last Row with data in each sheet
lastSrcRw = Sheets(sht).Range("A" & Rows.Count).End(xlUp).Row
'Ignore bottom 2 Rows in last original Sheet
If Sheets(sht).Name = Sheets(Sheets.Count - 1).Name Then
lastSrcRw = lastSrcRw - 2
'Determine next available Row in new Sheet, Copy and Paste data
nextDstRw = Sheets(Sheets.Count).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(sht).Range("A3:A" & lastSrcRw).EntireRow.Copy _
Sheets(Sheets.Count).Range("A" & nextDstRw)
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.