delete row based on criteria - help!

... anyone....

Try this approach:

Sub pinky24zz()
Range("E1:E" & Range("E" & Rows.count).End(3)(1).Row).AutoFilter 1, "=*review*", xlOr, "=*audit*"
Range("E2:E" & Range("E" & Rows.count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
Range("E1:E" & Range("E" & Rows.count).End(3)(1).Row).AutoFilter 1, "=*project*", xlOr, "=*done*"
Range("E2:E" & Range("E" & Rows.count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub