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

[Сен]

Добрый день!
Использовал данный макрос.
Sub УдалениеСтрокПоНесколькимУсловиям()
Dim delra As Range
Application.ScreenUpdating = False ' отключаем обновление экрана
ищем и удаляем строки, содержащие заданный текст
(можно указать сколько угодно значений)
УдалятьСтрокиСТекстом = Array("А.", "Ан.", "Ба.", "Бак", "Бар")


перебираем все строки в используемом диапазоне листа
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
dx = .Range("A1:A" & LastRow)
For i = 1 To UBound(dx)
For Each word In УдалятьСтрокиСТекстом
If InStr(1, dx(i, 1), word, vbTextCompare) > 0 Then
добавляем строку в диапазон для удаления
If delra Is Nothing Then Set delra = .Rows(i) Else Set delra = Union(delra, .Rows(i))
'Exit For
End If
Next
Next

End With
' если подходящие строки найдены, то: (оставьте одну из 2 следующих строк)
If Not delra Is Nothing Then delra.EntireRow.Hidden = True ' скрываем их
If Not delra Is Nothing Then delra.EntireRow.Delete ' удаляем их
Application.ScreenUpdating = True


End Sub

Подскажите пожалуйста как в данном макросе перебирать и удалять строки, содержащие определенный текст, при этом таких строк около 200 и текст не повторяется.