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

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