2007, removing blank rows

[Jeffrey Green]

Grrrrr,

I have several sheets with about 250,000 rows per sheet.

But, even I sort by Column A, there are STILL hundreds or rows that are totall blank interspersed down the page . . . I can't autofilter for blanks because there is too much data . .

How can I get rid of them?

 

[buxtongt]

Are the entire rows blank or do are you just looking at a certain column?

 

[Michael M]

This will delete rows if cell in column "A" is blank
Always try code on a test sheet first

Sub delrow()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = lr To 1 Step -1
        If Range("A" & r).Value = "" Then Rows(r).Delete
    Next r
End Sub