VBA code for deleting Rows that contain specific criteria from Filtered Data

Hello,

I am trying to delete the entire row/rows of specific data from a filtered table. As an example, I have data in columns A1:E600. From Column B, I want to delete the rows that contain the text "Active".

I have a used the following macro, but I am stuck when I want to remove the filter. Then filter on a different column and delete the criteria in that column.

    
   Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, Criteria1:="Active"
    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True
    Selection.AutoFilter

Can someone please help or refer me to a great link?? Also, if there is a cleaner way than this code, please advise.

Thanks in advance!

Hi

Maybe

Sub aaa()
  ActiveSheet.AutoFilterMode = False 'turn off any existing autofilter
  lastrow = Cells(Rows.Count, 1).End(xlUp).Row 'assumes there will always be an entry in column A
  Range("A:E").AutoFilter field:=2, Criteria1:="Active" 'filter on column B
  On Error Resume Next
  Range("A2:E" & lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
  On Error GoTo 0
  Range("A:E").AutoFilter field:=4, Criteria1:="thisone"  'filter on column D
  On Error Resume Next
  Range("A2:E" & lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Delete shift:=xlUp
  On Error GoTo 0
  ActiveSheet.ShowAllData
  ActiveSheet.AutoFilterMode = False
  
End Sub

rylo

rylo,

Thanks, this worked!

Carlos