Help speeding up macro

[ivan_fuzz]

Hello, I have a macro that looks for data in a cell, if there is data, it deletes the entire row. It works fine but it's taking forever to run on a 2000 line spreadsheet. Does anyone know how to speed it up? I've tried turning of the screenupdating but that didn't help much.

Range("D2").Select
Do Until ActiveCell.Offset(0, -3) = ""
If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
End If
Loop

Thanks.

 

[Bruno_x]

another approach to solve this :
- sort your list on column D
- remove the lines you don't need
- if neccessary, sort the list again on column A (or another column)

 

[Legacy 12630]

Columns(1).SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete
Columns(1).SpecialCells(xlCellTypeFormulas, 23).EntireRow.Delete

 

[ivan_fuzz]

Thanks for the advice. I resorted it first and that does help a little.

I'm not sure how to incorporate Ponsonby's code though. I've never used that syntax.