Macro to consolidate individual sheets into single sheet

Upload the sample file

Hi and welcome
various solutions at https://www.rondebruin.nl/win/section3.htm
or an add-in at
https://www.rondebruin.nl/win/addins/rdbmerge.htm

[QUOTE=aerobee;5233702]Hi,



I can't find a way of uploading a copy of the file I would like to consolidate (multiple copies of the same template).[\QUOTE]

I thought the yellow banner was explicit enough..
Have you tried the solutions suggested in post #3?

This code is to merge all the workbooks in the new worksheet "Master"

Sub mergeWorksheetsALL()
    Dim wrk As Workbook
    Dim sht As Worksheet
    Dim trg As Worksheet
    Dim rng As Range
    Dim colCount As Integer
     
    Set wrk = ActiveWorkbook
     
    For Each sht In wrk.Worksheets
        If sht.name = "Master" Then
            MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _
            "Please remove or rename this worksheet since 'Master' would be" & _
            "the name of the result worksheet of this process.", vbOKOnly + vbExclamation, "Error"
            Exit Sub
        End If
    Next sht
     
    
    Application.ScreenUpdating = False
     
   
    Set trg = wrk.Worksheets.add(After:=wrk.Worksheets(wrk.Worksheets.Count))
     
    trg.name = "Master"
    
    Set sht = wrk.Worksheets(1)
    colCount = sht.Cells(1, 255).End(xlToLeft).Column
    
    With trg.Cells(1, 1).Resize(1, colCount)
        .Value = sht.Cells(1, 1).Resize(1, colCount).Value
        .Font.Bold = True
    End With
     
    
    For Each sht In wrk.Worksheets
        
        If sht.index = wrk.Worksheets.Count Then
            Exit For
        End If
        
        Set rng = sht.Range(sht.Cells(2, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount))
        trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
    Next sht
     
    trg.Columns.AutoFit
        
    Application.ScreenUpdating = True
End Sub

------------------
if solved press * add reputation