I'm using Excel 2007. I have a worksheet with 250,000 records. There are blank rows mixed amongst the data. I need to keep the data in the exact same order it is in right now (no sorting) but delete all blank rows. A blank row is identifiable if a cell in column "A" is blank. In other words, check each cell in column "A". If it is blank, then delete the entire row. How come this macro I'm trying to use to accomplish this isn't working?
Application.ScreenUpdating = False
Dim i As Long
i = 1
Do Until i > Cells(250000, "a").End(xlUp).Row
If Cells(i, "a").Value = "" Then
i = i + 1
Application.ScreenUpdating = True