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

[vitaland]

Господа, помогите!!!
1. Имеется таблица (А4:Н1000).
Необходимо удалить строки при условии, что в столбце "Н" значения меньше "5", а также удалить строки, если "Н" = 0.

P.S. Прошу сильно не ругать, что обращаюсь с этим популярным вопросом. Макросы только начал изучать.

[vitaland]

Пример прилагается...

[Diskretor]

Sub Rows5Del()
Dim i%
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If InStr(Cells(i, 1).Value, "№") Then Exit For
If Val(Cells(i, "H").Value) < 5 Then Rows(i).Delete
Next i
End Sub

От последней заполненной до строки с "№".
Условие, что в H-столбце значение = 0 ведь входит в условие < 5 ...

[kuklp]

Вариант пошустрей:

Sub www()
    With [a5].CurrentRegion
        .AutoFilter 8, "<5"
        .Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilter
    End With
End Sub

[vitaland]

Спасибо!!!