обозначить ряд через переменную

[horpenst]

Здравствуйте!
Помогите найти ошибку.
Цель - удалить каждый ряд, в котором первая ячейка равна нулю.
Спасибо

Sub deleteDoubleRows()
Dim a As Integer
For a = 1 To 36
If Cells(a, 1) = 0 Then
Rows("a:a").Delete
End If
Next a
End Sub

[IgorGO]

Sub deleteDoubleRows()
Dim r As Integer
For r = 36 To 1 step -1
  If Cells(r, 1) = 0 Then Rows(r).Delete
Next
End Sub

или если Вам нужен не макрос, а результат - то так:

Sub DelRows()
  [a1:a36].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub