Table that includes data from current sheets and future sheets

BDarden, I'll just go ahead and say you are not approaching your data collection plan the right way. If we were talking about a relational database, and we were tracking sales in a store, what you are describing is akin to having one table for each day of sales in the database. This is not how to make best use of the resources you have. Think about how troublesome it is going to be to do any kind of reporting if your data are scattered across many sheets? What you need is 1 table (that is what a worksheet is), with one column for the date, one column for the trainer, then the rest of the columns you have for the trainees. If it's not too much trouble, you should convert the data you have to a normalized format. Then, if you need the "report" format of your date (which is how you are storing it now), you make reports.

Greg

I did not do anything with formatting, and given the nature of it, there may be more elegant ways to achieve your goal, but I believe this will work for you. You posted your question in the general section, but this will require a macro solution, so I'm not sure if you are familiar with VBA or not. No offense intended here, but I am going to assume you do not, just to play it safe. Open the Visual Basic Editor (VBE) in your workbook by hitting alt+f11. In the view menu, click "Project Explorer". Right click "ThisWorkbook", and choose insert>module. Copy all of the code below, and paste it into the editor window on the right (it will look like a blank white page). Click the run button (green arrow under the Debug menu button). That should do it. If you need help post back, and I truly apologize if you did not need any of that, but in the general forum one never knows.

Sub CombinedReport()

    Dim WB As Workbook
    Dim WS As Worksheet
    Dim rFrom As Range
    Dim rTo As Range
    Dim c As Variant
    Dim i As Long
    Dim StartDate As String
    Dim LastRow As Long
    
    Application.ScreenUpdating = False
    
    Set WB = ActiveWorkbook
    Set WS = WB.Sheets("CombinedReport")
    
    WS.Activate
    
    With WB
        For i = 1 To .Sheets.Count Step 1
            If .Sheets(i).Name Like "*.*" Then
                StartDate = .Sheets(i).Cells(1, 2).Value
                LastRow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row + 1
                Set rFrom = WB.Sheets(i).Range("A6:A" & WB.Sheets(i).Cells(65000, 1).End(xlUp).Row)
                Set rTo = WS.Range("A" & LastRow & ":A" & LastRow + rFrom.Rows.Count - 1)
                rFrom.Copy
                rTo.PasteSpecial Paste:=xlPasteValues
                For Each c In rTo
                    c.Offset(0, 1).Value = StartDate
                Next c
            End If
        Next i
    End With
    
    Application.CutCopyMode = False
    WS.Cells(1, 1).Select
    Application.ScreenUpdating = True

End Sub

Greg