Delete Rows based on Key Words

[_RKKC_]

I'm trying to modify some existing code from another macro to do a somewhat similar task. What I want is to check the data on the status column and delete the entire row if the keyword matches. Currently my code appears to delete some of the row, but not columns A or B.

Here is what I have so far:

Data:

Username	Status	Not Used	Not Used	Not Used	Time
SmithJohn	<<not keyword="">></not>	-	-	-	HH:MM:SS
SmithJohn	<<keyword>></keyword>	-	-	-	HH:MM:SS	<--- Delete this row
SmithJohn	<<not keyword="">></not>	-	-	-	HH:MM:SS

<tbody>
</tbody>

Data table format doesn't change.

Sub DelRows()Dim MaxRow As Long, MyRange, agent As String, r As Long
Application.ScreenUpdating = False


    MaxRow = Cells(Rows.Count, "B").End(xlUp).Row
    MyRange = Range("A1:B" & MaxRow)
    
    For r = MaxRow To 1 Step -1
        If MyRange(r, 2) = "Keyword" Then Rows(r).EntireRow.Delete
    Next r
    
    Range("A1:B" & MaxRow) = MyRange
End Sub

Thank you very much for any assistance you are able to provide.

 

[_RKKC_]

Apologies, the data table seems to have removed the statuses.

Data:

Username	Status	Not Used	Not Used	Not Used	Time
SmithJohn	<Not Keyword<not keyword="">></not>	-	-	-	HH:MM:SS
SmithJohn	<Keyword<keyword>></keyword>	-	-	-	HH:MM:SS	<--- Delete this row
SmithJohn	<Not Keyword<not keyword="">></not>	-	-	-	HH:MM:SS

<tbody>
</tbody>

Data table format doesn't change.

 

[_RKKC_]

-_-

Data:

Username	Status	Not Used	Not Used	Not Used	Time
SmithJohn	Not Keyword	-	-	-	HH:MM:SS
SmithJohn	Keyword	-	-	-	HH:MM:SS	<--- Delete this row
SmithJohn	Not Keyword	-	-	-	HH:MM:SS

<tbody>
</tbody>

I swear...it's not my first time posting things to the internet...

 

[Michael M]

Try this, but depending on your dataset....autofilter might be quicker

Sub DelRows()
Dim r As Long
Application.ScreenUpdating = False
    For r = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1
        If Cells(r, 2) = "Keyword" Then Rows(r).Delete
    Next r
Application.ScreenUpdating = False
End Sub