Удаление и вставка строк через цикл - VBA

Формулировка задачи:

Люди, помогите начинающему. Есть рейндж, из которого нужно удалить строки, отвечающие определенным условиям. Если это делать через цикл, то количество элементов в цикле меняется, поэтому цикл работает с ошибками. Аналогичная ситуация, если вставлять строки по определенным условиям. Есть какой приемчик? Может, можно выделить одновременно строки в рейндже, отвечающие условию, а потом уже удалить селекшн? Или как-нить через массив, или через фильтр?

Решение задачи: «Удаление и вставка строк через цикл»

textual
                            Листинг программы 
                        

                            Sub UnionTest()
    Dim i&, d As Range
 
    For i = 1 To 20000 Step 2
        If Cells(i, 1) = Empty Then
            If d Is Nothing Then Set d = Cells(i, 1) Else Set d = Union(d, Cells(i, 1))
            Application.StatusBar = d.Areas.Count
            DoEvents
        End If
    Next i
 
    d.EntireRow.Select
    Application.StatusBar = False
End Sub
                        