Urgent help Needed <<removing Rows

[alopecito]

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

Thanks!!

[Paul_Hossler]

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

Paul

[mdmackillop]

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

[alopecito]

Thanks, that will work for now!!