Deleting Unique Rows

[MWS]

Hello, I have the following code to delete blank rows within a worksheet.

'Deletes blank lines, for advance filterring
[a1:a50000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Question: Is there a method to delete certain rows, if a particular cell
within a row meets certain criteria? For instance, I'd like to reference
range a1:a50000, and delete each row within this range, if "Sub Total" is the
value in any cell within column A.

Is this possible and if so, how?

Any and All Help Is Appreciated - Thank You

 

[ALe]

You could do a loop like this...

application.screenupdating=false
dim cell as range

for each cell in range("a1:a50000")
if cell.text="Sub Total" then cell.entirerow.delete
next cell

Of course faster ways can be used.