Sub Macro1()
Dim FindRng As Range, TxtFind As String, FirstAdr As String
    TxtFind = "Удалит"
    Set FindRng = Columns(13).Find(What:=TxtFind, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious)
    If Not FindRng Is Nothing Then
        FirstAdr = FindRng.Address
        Do
            Range(Cells(FindRng.Row, 5), Cells(FindRng.Row + 3, 8)).Value = ""
            Cells(FindRng.Row + 1, 6) = "У"
            Set FindRng = Cells.FindNext(FindRng)
        Loop While FindRng.Address <> FirstAdr
    Else
'        MsgBox "Значение " & TxtFind & " не найдено!", 48, "Ошибка!"
    End If
End Sub