Sub DeleteEmptyRows()  
  '---------------------------------------------------------------------------------------  
  ' Procedure    : DeleteEmptyRows  
  ' Author       : The_Prist???  
  ' Topic_HEADER : Удаление всех пустых строк в таблице  
  ' Topic_URL    : http://www.planetaexcel.ru/tip.php?aid=31  
  ' Post_Author  :  
  ' Post_URL     :  
  ' DateTime     : 10.09.2006  
  ' Purpose      : Удаление всех пустых строк в таблице  
  ' Notes        :  
  '---------------------------------------------------------------------------------------  
  If MsgBox("Удалить все пустые строки на листе?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Удалить пустые строки?") = vbCancel Then Exit Sub  
  Dim lLastRow As Long, i As Long  
  lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count  
  Application.ScreenUpdating = False  
  For i = lLastRow To 1 Step -1  
     If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete  
  Next  
  Application.ScreenUpdating = True  
End Sub  
 
Sub DeleteEmptyRows2()  
  '---------------------------------------------------------------------------------------  
  ' Procedure    : DeleteEmptyRows2  
  ' Author       : слэн  
  ' Topic_HEADER : Почему не работает макрос удаления пустых строк?  
  ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=9861  
  ' Post_Author  : слэн  
  ' Post_URL     : http://www.planetaexcel.ru/forum.php?thread_id=9861&page_forum=2&allnum_forum=39  
  ' DateTime     : 17.04.2010, 13:47  
  ' Purpose      : Удаление всех пустых строк в таблице  
  ' Notes        :  
  '---------------------------------------------------------------------------------------  
  If MsgBox("Удалить все пустые строки на листе?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Удалить пустые строки?") = vbCancel Then Exit Sub  
  On Error Resume Next  
  Dim RNG As Range, x, n As Long, nr As Long, d As Long  
  Set RNG = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)  
  n = RNG.Row + 1  
  For Each x In RNG.Rows  
     nr = x.Row  
     If nr > n Then  
        Range(Cells(n, 1), Cells(nr - 1, 1)).EntireRow.Delete  
        d = nr - n  
     Else  
        d = 0  
     End If  
     n = nr + 1 - d  
  Next  
End Sub

ну так в чём проблема-то?  
Просто замените в макросе The_Prist в цикле    
For i = lLastRow To 1 Step -1  
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete  
Next  
проверку условия на под свои нужды...

И уж поучитесь формулировать вопросы.  
Все ответы В ТОЧНОСТИ соответствуют вопросу-теме топика: "Удаление пустых строк"  
Что просили, то и получили. Тем более, что пример не приложили...  
Тут народ что, телепатически должен догадываться, по признаку отсутствия каких данных в каких столбцах должны удаляться строки?

Еще одна попытка

Файл примера - это, конечно, здорово, но хотелось бы ещё знать, по отсутствию данных в каких столбцах должны удаляться строки?  
 
Но в общем случае:  
заменяйте в цикле макроса DeleteEmptyRows  
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete  
на проверку своего условия.  
Ну, например для проверки по столбцам С (столбец № 3)и Е (столбец №5)цикл получается такой:  
For i = lLastRow To 1 Step -1  
If Cells(i,3)="" And Cells(i,5)=""  Then Rows(i).Delete  
Next

Ок, спасибо, ща буду разбираться!!!!

Блин!  
Никак не привыкну к синтаксису управляющих конструкций на этом движке форума и "на автомате" написал ссылку так, как привык писАть везде, в квадратных скобках...  
А исправить нельзя.

ну, тогда и пишите:  
If Cells(i,15).Text = "" Then Rows(i).Delete  
а выполнять какие-либо необратимые операции с денными автоматом при открытии как-то стрёмно.  
Уж лучне кнопочку сделать.