I'd try this:

---------------------------------------
Lastrow = Activesheet.UsedRange.Rows - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
r = Lastrow
Do While r = 1
If Application.CountA(Rows(r)) = 0 Then
Rows(r).delete
Else
r = r - 1
Loop