Urgent help Needed <<removing Rows

I just need a quick code that remove the rows that contains "Total Leads", the text will be in column a...See Sample.

Thanks!!

Quickest 'one shot' way is to turn on Data Filter, filter on Totals, highlight and delete the lines.

Paul

[VBA]Sub Macro1()
Range("A:A").AutoFilter Field:=1, Criteria1:="Total Leads"
Range("A2:A65536").SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A:A").AutoFilter
End Sub
[/VBA]

Thanks, that will work for now!!