VBA - Deleting Entire Row Based on a Condition

[MJaspering]

Hey All,

I am attempting to delete an entire row based on a single cell value and have run into some trouble getting it to work. I have done some testing and the (ActiveCell.Row) piece is generating the correct Row Number, but the Row is not being deleted. Any thoughts?

Thanks!

Do Until IsEmpty(ActiveCell)
        If ActiveCell.Value = "TOTAL" Then
            Rows(ActiveCell.Row).EntireRow.Delete
        End If
        ActiveCell.Offset(1, 0).Select
    Loop

 

[CephasOz]

Try this:

    Do Until IsEmpty(ActiveCell)
        If ActiveCell.Value = "TOTAL" Then
            ActiveCell.EntireRow.Delete
        Else
            ActiveCell.Offset(1).Select
        End If
    Loop

 

[jolivanes]

If deleting, work from the bottom up.

Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step - 1
If Cells(i, 1).Value = "Total" Then Cells(i, 1).EntireRow.Delete
Next i

The 1 (one) in this part "Rows.Count, 1" is for Column A. A 2 would be for Column B etc etc.
Mind you, there are better ways of doing this as you should avoid looping if you can