Удалиит пустые строки в Excel

Sub DeleteEmptyCols()
   LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
   Application.ScreenUpdating = False
   For r = LastRow To 1 Step -1
       If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
   Next r
End Sub

Отсюда http://otvety.google.ru/otvety/thread?tid=43e310722ca01a37