Удаление содержимого ячеек, в которых нет ключевых фраз

Function ПоискячеекПоУсловию(ByVal ТекстДляПоиска As String, Optional HideOnly As Boolean) As Long
     ' функция получает в качестве параметра ТекстДляПоиска (можно использовать символы * и ?)
    ' Если HideOnly = TRUE, то строки, содержащие в ячейках ТекстДляПоиска, скрываются,
    ' иначе (HideOnly = FALSE - по умолчанию) - удаляются
    ' Функция возвращает количество удалённых ячеек
    Dim ra As Range, delra As Range
     Application.ScreenUpdating = False    ' отключаем обновление экрана
 
     ' перебираем все ячейки в используемом диапазоне листа
    For Each ra In ActiveSheet.UsedRange
         ' если в строке найден искомый текст
        If ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
             ' добавляем ячейку в диапазон для удаления
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
         End If
     Next
     On Error Resume Next: ПоискСтрокПоУсловию = delra.Areas.Count ' количество найденных строк
    
     If Not delra Is Nothing Then    ' если подходящие ячейки найдены - скрываем или удаляем их
        If HideOnly Then delra.ClearContents = True Else delra.ClearContents
     End If
End Function