Автоматическое удаление строк по условию

[Kapkom]

Здравствуйте!

Столкнулся с таким вопросом.
Есть макрос на удаление строк:

For Each c In Range("b3:b27")
If c = "да" Then
c.EntireRow.Delete Shift:=xlUp
End If
Next

По этому макросу удаляются строки, в ячейках которых по столбцу b3:b27 указано значение "да". Однако, если значение "да" указано в идущих подряд ячейках, то строки по этим ячейкам удаляются через одну. Например, значение "да" указано в ячейках b4,b5,b6,b7. В данном примере удалятся строки по ячейкам b4 и b6, а строки по ячейкам b5 и b7 останутся. Можно, конечно, для того, чтобы такого не было, вышеуказанную комбинацию "for each c" в макросе повторить раз 10. Но иногда даже 10 повторений этого цикла недостаточно и приходится постоянно перезапускать макрос.

Скажите, пожалуйста, что надо указать в макросе, отличное от варианта повторения комбинации "for each c" несколько раз, чтобы не было такой проблемы.

Заранее большое спасибо.

[IgorGO]

for r = 27 to 3 step -1
  if cells(r,2) = "да" then rows(r).delete
next

[Kapkom]

Спасибо большое за подсказку. Вот такой макрос в результате получился:

Set ss = Selection
For i = 20000 To 1 Step -1
If ss.Cells(i, 1).Value = "да" Then
ss.Cells(i, 1).Select
Selection.EntireRow.Delete Shift:=xlUp
End If
Next i

[Hugo121]

Не дай бог ошибиться с Selection...

[IgorGO]

если "да" на разбросаны хаотично по листу, а припаркованы к одной колонке - то не так уж и страшно))
If ss.Cells(i, 1).Value = "да" Then rows(i).delete

[Hugo121]

Ну может начать перебирать ниже задуманного, и не проверить например все нужные...