Поиск строки по слову, скрытие строки

Sub -Elias-()
    Rows("12:12").Select
    Selection.Delete Shift:=xlUp
 
    Cells.Find(What:="IRP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveSheet.Unprotect
    ActiveSheet.Pictures.Insert( _
        "C:\Users\Elias.png").Select
    Selection.ShapeRange.IncrementLeft 17.25
    Selection.ShapeRange.IncrementTop -18#
    Range("L86").Select
    ActiveWindow.SmallScroll Down:=-70
 
    Columns("C:C").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit 
End Sub

Sub Procedure_2()
 
 ActiveSheet.Unprotect
 
    Dim ra As Range, delra As Range, ТекстДляПоиска As String
    
    
    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
    ' если подходящие строки найдены - очищаем их
   If Not delra Is Nothing Then delra.EntireRow.Clear
   
   
   
End Sub