Search using wildcard

Private Sub CommandButton1_Click()

    Dim rngFilter As Range
    
    With Sheets("S04FLXLS")
            .AutoFilterMode = False
        Set rngFilter = .Range("a1:b" & .Rows.Count).End(xlUp)
    End With
    
    With rngFilter
        .AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
        .Range("A1:N" & .Rows.Count).End(xlUp).SpecialCells(12).Copy Destination:=Sheet2.Range("A1")
        .AutoFilter
    End With

End Sub

I tried that last suggestion, and now I'm back to the entire header row being printed on Sheet 1 and nothing going onto Sheet 2.