Problema em loop para deletar linhas

[Xflapc2]

Estou com esse código (só a parte que interessa) que deleta as linhas que satisfaçam a condição:

 

No entanto estou tendo problemas, pois acaba analisando linhas após o limite estabelecido (pois algumas já foram excluidas e alinha final diminuiu) ou nao analisa a ultima linha.

 

Tentei fazer com for/next e com do/loop, nada...

 

Por exemplo, se o intervalo é da linha 1 a 8, se a linha 4 for deletada, não pode ir analisar a 5, tem que analisar de novo a 4 (que era a antiga 5), a última linha a analisar não é mais a 8, mas sim a 7.

 

Grato.

    x = Ic        Do While x < Fr - Counter + 1    'For x = Ir To Fr        If Cells(x, Ic).Value = MyT Then            Rows(x).Delete            Counter = Counter + 1            'x = x - 1            Else            x = x + 1        End If    'Next x    Loop

Resolvido, para deletar linhas ou colunas a contagem tem que ser de trás pra frente.

    For x = Fr To Ir Step -1        If Cells(x, Ic).Value = MyT Then            Rows(x).Delete            Counter = Counter + 1        End If    Next x