0-ые значения !!! :-)

[Rom213]

Здравствуйте есть вопросик :
Возвращаясь к недавним теммам со строками содержащими нули.
Хотелось бы узнать как в диапазоне который будет меняться убрать все строки в которых содержаться 0 либо же отрицательные значения.

Заранее Respect кто откликнулся.

P.S. Что бы файлик не просили выложу сразу.

[KL]

Код: Выделить всё

Sub test()
    Application.ScreenUpdating = False
    With Sheets("Лист1")
        For i = .[A65536].End(xlUp).Row To 1 Step -1
            If Application.CountIf(.Rows(i), "<=0") Then .Rows(i).Delete
        Next i
    End With
    Application.ScreenUpdating = True
End Sub