Merging worksheets

[Heydiddle]

I have many worksheets (same headings) that I want to consolidate into one workbook. What I've read so far is not helping I was hoping someone on here can help me.

 

[JLGWhiz]

Here is a generic copy and paste that should get it all into one book. After that you can sort and shuffle to organize the data. Since it has the same headings, one sheet's data will just be copied beneath the prior sheet.
This code assumes row 1 as a header row in Each worksheet. It will add a new sheet, then copy the contents of each existing sheet in the workbook to the new sheet, consecutively in the order of the name tabs at the bottom of the pane. It will then ask for a file name and when the file name is provided, if there are no errors, it will save the file as an file. If you attempt to save it as other than an xl file, it could error because no fileformat code is provided. You should end up with the original workbook intact and a new consolidated single sheet workbook.

Sub cons()
Dim sh As Worksheet, lr As Long, lc As Long, newSh As Worksheet
Set newSh = Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(1).Rows(1).Copy newSheet.Range("A1")
    For Each sh In ThisWorkbook.Sheets
        lc = sh.Cells.Find(What:="*", After:=sh.Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
            SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column
        lr = sh.Cells.Find(What:="*", After:=sh.Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
        With sh
            If sh.Name <> newSh.Name Then
                .Range(.Cells(2, 1), .Cells(lr, lc)).Copy newSh.Cells(Rows.Count, 1).End(xlUp)(2)
            End If
        End With
    Next
    newSh.Copy
    fName = InputBox("Enter a file name and file with file extension.  Example: Consolidated.xlsx", "File Name")
        ActiveWorkbook.SaveAs fName
End Sub

This also assumed that all of the original sheets were in the same workbook.