Macro to delete all rows not filtered

I have a macro that filters

I need to delete all rows NOT filtered, I have not been able to find or come up with anything on how to do this

Thanks

Range("A1").CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select
        Selection.EntireRow.Delete

This is assuming that the data is all in a table format and that the table starts at Row 1. It also keeps the headers.

Well I am all into reclyling code. So I often use sub routines over and over again and name ranges for fields, So for this example, let's say I have a worksheet called "Data", a field named "Project", and I am trying to delete a project called "T3-1Test"

Sub DeleteRangeSample()

Call RangeName(Worksheets("Data"))
Call DeleteRange(Worksheets("Data"), "Project", "T3-1Test")

End Sub
Private Sub RangeName(xlWs As Excel.Worksheet)
    'Add Range Names for Reference
    Application.DisplayAlerts = False
    xlWs.Range("A1").CurrentRegion.CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False   '########## changed
    Application.DisplayAlerts = True
       
End Sub
Private Sub DeleteRange(xlWs As Excel.Worksheet, strRangeName As String, varTypeNumText As Variant)
    Dim xlCell As Excel.Range
    With xlWs
    Set xlCell = .Range(strRangeName).Find(What:=varTypeNumText, LookIn:=xlValues, Lookat:=xlWhole)
        If Not xlCell Is Nothing Then
            If .AutoFilterMode = True Then .AutoFilterMode = False
            .Cells(1, 1).CurrentRegion.AutoFilter Field:=Range(strRangeName).Column, Criteria1:=varTypeNumText, Operator:=xlAnd
            .Range(strRangeName).EntireRow.Delete
            .AutoFilterMode = False
        End If
    End With
    
End Sub

This is a more sophisticated solution, but really reusable.