Удаление строк в таблице

[Yukihiro]

Есть код который удаляет текст по условию из столбца А, но нужно чтобы удалялся весь текст который не подходит условию. Не знаю пробовал изменить, но не получается
Dim ra As Range, delra As Range
Application.ScreenUpdating = False
Удалить = Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*")
For Each ra In ActiveSheet.UsedRange.Rows
For Each word In Удалить
If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next word
Next
If Not delra Is Nothing Then delra.EntireRow.Delete

[Aleksandr H.]

If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then