Delete Table Rows of filtered data - when some columns are hidden

Just trying to delete the red rows here... some columns are hidden though which I think is what is giving me the problem - due to the visible cells reference...

Id guess I just have to say visible cells, rows, but ive been trying for a while and am just not getting it haha...... what am I doing wrong here - see attached

Thank you for any help!


Here are 2 of the recent ones ive tried.. although theres been like 6-7 variations..

Sub ClearClosedFiles()
    Dim wb As Workbook
    Set wb = ThisWorkbook
        With wb.ActiveSheet.ListObjects("Table_WorkloadTracking")
            .Range.AutoFilter Field:=5, Criteria1:=RGB(192, 0, 0), Operator:=xlFilterCellColor
            Rowz = .Range.Columns(2).SpecialCells(xlCellTypeVisible).Cells.Count - 1
            If Rowz > 0 Then Range("Table_WorkloadTracking[FileNo]").Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            .ShowAllData
        End With
End Sub

Sub ClearClosedFiles2()
    ActiveSheet.ListObjects("Table_WorkloadTracking").Range.AutoFilter Field:=5, Criteria1:=RGB(192, 0, 0), Operator:=xlFilterCellColor
    Rowz = ActiveSheet.ListObjects("Table_WorkloadTracking").Range.Columns(5).SpecialCells(xlCellTypeVisible).Cells.Count - 1
        If Rowz > 0 Then
            rng = ActiveSheet.ListObjects("Table_WorkloadTracking").DataBodyRange.Address
            ActiveSheet.Range(rng).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End If
    Range("Table_CollPreComplaint2[[#Headers],[FileNo]]").Select
    ActiveSheet.ShowAllData
End Sub

So this is halfway there... 2 problems with it though --- 1, the blank rows 1-4 are being removed and 2, its throwing an error..... i put an on error resume in there just to see if it works..

can anyone fill in the blanks here maybe?

Sub ClearClosedFiles()
Dim lRows As Long
On Error Resume Next
    Application.Calculation = xlCalculationManual
    ActiveSheet.ListObjects("Table_WorkloadTracking").Range.AutoFilter Field:=5, Criteria1:=RGB(192, 0, 0), Operator:=xlFilterCellColor
        For lRows = ActiveSheet.Range("Table_WorkloadTracking[FileNo]").Rows.Count To 1 Step -1
            If Cells(lRows, 2).EntireRow.Hidden = False Then Rows(lRows).EntireRow.Delete
        Next lRows
    Range("Table_WorkloadTracking[[#Headers],[FileNo]]").Select
    ActiveSheet.ShowAllData
End Sub

Got ittt... thanks to everyone for the help! haha

Sub ClearClosedFiles()
Dim lRows As Long
On Error Resume Next
On Error Resume Next
    Application.Calculation = xlCalculationManual
    ActiveSheet.ListObjects("Table_WorkloadTracking").Range.AutoFilter Field:=5, Criteria1:=RGB(192, 0, 0), Operator:=xlFilterCellColor
        For lRows = ActiveSheet.Range("Table_WorkloadTracking[FileNo]").Rows.Count To 5 Step -1
            If Cells(lRows, 2).EntireRow.Hidden = False Then Rows(lRows).EntireRow.Delete
        Next lRows
    Range("Table_WorkloadTracking[[#Headers],[FileNo]]").Select
    ActiveSheet.ShowAllData
End Sub