Sub DeleteIt() Dim lr As Long Application.ScreenUpdating = False lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row Sheet1.Range("I2:I" & lr) = "=IF(D2="""","""",IF(ISNUMBER(SEARCH(""ABC"",D2,1)),""ABC""))" With Sheet1.[A1].CurrentRegion .AutoFilter 9, "ABC" .Offset(1).EntireRow.Delete .AutoFilter End With Sheet1.Columns(9).ClearContents Application.ScreenUpdating = True End Sub
DON'T MISS