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

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