Sub delRow()
'Объявляем переменные
Dim i As Integer 'переменная определяющая номер строки
Dim EndRow As Integer 'переменная определяющая номер последней заполненной строки
Dim vremya 'время начала работы макроса

Application.ScreenUpdating = False ' отключение обновления экрана

vremya = Timer 'запомнили время начала работы макроса

EndRow = Range("A65536").End(xlUp).Row 'один из способов определения последней строки. Определили только в столбце "A". Другие _
'методы их плюсы и минусы см. _
'http://www.sql.ru/forum/actualthread.aspx?tid=396213&hl=%ef%ee%f1%eb%e5%e4%ed%ff%ff+%f1%f2%f0%ee%ea%e0+%e4%e8%e0%ef%e0%e7%ee%ed%e0#3781642 _
'активно пользуемся поиском

  For i =  1  To EndRow 'Цикл по строкам от первой до последней (EndRow)
   If Cells(i, "A") =  0  And Cells(i, "A") <> "" Then 'Сравниваем: Если значение ячейки в i-той строке столбца "A" равно нулю и не пустое
    Rows(i).Delete 'то удаляем i-тую строку
    i = i -  1  ' т.к. мы выше удалили строку, то диапазон сместился на одну строчку вверх. Поэтому мы должны проверить эту строку еще раз. _
'Для этого мы уменьшаем значение _
    'i  на единицу, но только после удаления строки. Иначе у нас может появится бесконечный цикл
   End If 'Закончили сравнивать
  Next i 'Переходим к следующему занчению i если оно не больше значения EndRow

Debug.Print Timer - vremya ' из текущего времени отняли время начала работы макроса и записали в окно Immediate, в которое можно перейти Ctrl + D

End Sub
' Макрос далеко не идеальный. Долгий, т.к. работает в цикле. На 10 000 строк с нулями уходит у меня около 10 сек. _
'Все пути к ячейкам лучше всего прописывать полностью : Книга.Лист.Ячейка(). В противном случае может сработать на активном листе любой книги. _
'Как сделать без цикла, я не знаю. :-) Можно порыться в форуме - там точно все это есть ;-). А если не получится обращаться с конкретными вопросами