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.Rows
' если в строке найден искомый текст
If Not 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.EntireRow.Hidden = True Else delra.EntireRow.Delete
End If
End Function

Sub Запуск()
UserForm1.Show
End Sub