combine the dynamically named sheets

[dialup]

I am writing a workbook which imports different numbers of worksheets depending on the number of days and deletes them when closed.
I have a number of sheets which are part of the workbook.
i have the following code which will combine all sheets onto a master but i only want to combine the sheets which are imported - these are named by a seperate macro.

Sub CopyFromWorksheets()
        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

i have sheet1, sheet2, sheet3 and sheet4 that i do not want included and as i say the names of the sheets i do want included are different each time the macro is run

 

[dialup]

if it helps to clarify instead of combining all worksheets into 1 - the code will do this - i want to combine all the worksheets exept sheet1, sheet2, sheet3 and sheet4

 

[dialup]

anyone?