как удалить всю строку в зависимости от условия одной ячейки

[aniutik]

мне нужно удалить все строки на листе, где в 5-ом столбце стоит значение "учтено"
Как это можно сделать программно?

[GSerg]

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

dim i as long

for i=activesheet.usedrange.rows.count to 1 step -1
  if lcase$(cells(i,5).value)="учтено" then rows(i).delete
next