Highlight Visible Cells from filtered column in a table

Hi, I am trying to filter a table, and then highlight the visible cells from that specific column and column A red. Here is the code I have which is not working... ("Complaint Prepared = Column 18 Header and Column A = "Case #")

  ActiveSheet.ShowAllData
        ActiveWorkbook.Sheets("Sheet2").ListObjects("Table").Range.AutoFilter Field:=23, Criteria1:="<>"
        ActiveWorkbook.Sheets("Sheet2").ListObjects("Table").Range.AutoFilter Field:=18, Criteria1:="="
                    Range("Table[[#Headers],[Complaint Prepared ]]").Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 255
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With
            Range("Table[[#Headers],[Case #]]").Select
                With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 255
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                End With