VBA Command to delete the rows.

Hello,

I have created the below macro code to delete all the rows containing "account" in column B.

Can you please help me using the below VBA codes, using IF...THEN condition.

Range("B1").Select
Selection.AutoFilter Field:=1, Criteria1:="=*account*", Operator:=xlAnd
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp