Delete Entire rows if found specific word in a column

[tajulit]

I want if cell contains word "hotmail" and "live" then delete entire rows.
Here Is a example Sheet:

Column A	Column B
amin@hotmail.com	Anything
amilo@live.com	Anything
jama@gmail.com	Anything
amcdfdin@hotmail.com	Anything
karim@vertivite.com	Anything

<tbody>
</tbody>

Here Is an Output Example:

Column A	Column B
jama@gmail.com	Anything
karim@vertivite.com	Anything

<tbody>
</tbody>

Thanks in Advance
Tajul

 

[mole999]

simple search will show this is a very old standard request. If you can't do it within the forum then spread out abit and use google

> https://www.mrexcel.com/forum/excel-questions/24133-vba-delete-specific-rows-based-criteria.html

 

[MARK858]

Personally I would avoid the looping methods. One way is to use the autofilter as below.
I also assume looking at your result data that you meant or rather than and in

word "hotmail" and "live"

Please note that you must have a header row (which you haven't in your example).

Sub FilterDelete()
    Application.ScreenUpdating = False
    
    With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter 1, "*hotmail*", xlOr, "*live*"

        On Error Resume Next
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
        On Error GoTo 0
        .AutoFilter

    End With
    
    Application.ScreenUpdating = True
End Sub