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

[Lirin]

суть проблемы в следующем:
есть цикл, в котором просматриваются значения ячеек столбца А, если ячейка удовлетворяет условию, нужно удалить диапазон строк от строки в которой стоит ячейка плюс еще три ниже... Как правильно задать этот диапазон одной командой?

[GSerg]

Range(Cells(i, 1), Cells(i + 3, 1)).EntireRow.Delete

[Lirin]

спс...
пишу всего лишь четвертый макрос, поэтому и возникают столь глупые вопросы... надеюсь, со временем буду спрашивать что-нибудь более неочевидное...

[Евгений Д.]

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

Например,

for CurRow = LastRow to FirstRow step -NeedStep

..............

next CurRow

[Lirin]

Все это чудесно, но не хотелось код обременять еще одним циклом, поэтому и возник вопрос о том, как создать более простое решение...