Макрос удалить пустые строки убрать ноли

[Петро1]

Доброго времени суток. Я создал новую тему, чтоб не засорять предыдущие, может там кому-то что-то тоже понадобится.
Теперь проблема в другом. Есть на листе пустые строки, их нужно удалить. А также напротив названий товаров есть ненужные ноли (они образовались при пересчёте формулой всего столбца), так их (ноли) тоже нужно убрать. Сообственно ноли находятся напротив "красных" слов, то-есть нужно именно их удалить. В общем в примере понятнее.
Помогите пожалуйста разобратся с проблемкой.

[IgorGO]

В общем в примере понятнее.

А кто спорит? пример бы посмотреть

[Петро1]

Ой, прстите, исправлюсь.

[IgorGO]

две строки заголовков, две строки макроса.

Sub DelBlankRow()
  Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  ActiveWindow.DisplayZeros = False
End Sub

[Петро1]

Ув. IgorGO спасибо вам.

[Петро1]

Так, я вынужден вернутся к даному вопросу. Тут, на сколько я понимаю, ноли просто скрываются. А мне надо, чтоб они именно удалялись. Если можна, подскажите как внести поправку?!

[IgorGO]

макрос усложнился:

Sub DelBlankRow()
  On Error Resume Next
  Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'  ActiveWindow.DisplayZeros = False
  For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(r, 2) = 0 Then Cells(r, 2).ClearContents
  Next
End Sub

[Петро1]

О, отлично, благодарю.

[Alex_ST]

А может логичнее поменять местами процедуру удаления пустых строк и цикл стирания нулей (ведь строки, где были нули, после стирания тоже станут пустыми) и ускорить запретом обновления экрана?

Sub DelBlankRow()
   On Error Resume Next
   Application.ScreenUpdating = False
   For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row
      If Cells(r, 2) = 0 Then Cells(r, 2).ClearContents
   Next
   Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   Application.ScreenUpdating = True
End Sub