Delete a row if a cell contains certain text as part of a text string

Hello, I have a column of data with letters in each cell, no numerical, only alpha. Now, some of those cells contain the letters "adj sub" as part of the text string in each cell. "Adj sub" is always at the beginning of the text string. As an example, a cell will look like this - "adj sub mhm". I want to delete rows whose cell description does not contain "adj sub" as part of the text in the cell. Any ideas?

for r = usedrange.rows.count to 1 step -1
if instr(1,cells(r,1),"Adj sub")=0 then
rows(r).select
selection.entirerow.delete
next r

NOT TESTED

In String checks (number of start character, string to search, string to search for)

InStr is a VBA function, it is the equivalent of Excel's Find Function.

Regards,