Sub deleter()
Dim x, i&, v&, delRa As Range, startRow&, stopRow&
x = [a1:e1000].Value
startRow = 0
For i = 1 To UBound(x)
       For v = 1 To 5 'число колонок в диапазоне.  
           If InStr(1, x(i, v), "папа") > 0 Then
               startRow = i + 1
           End If
           If startRow > 0 Then
               If InStr(1, x(i, v), "мама") > 0 Then
                   stopRow = i - 1
                   If delRa Is Nothing Then
                       Set delRa = Range("A" & startRow & ":A" & stopRow)
                   Else
                       Set delRa = Union(delRa, Range("A" & startRow & ":A" & stopRow))
                   End If
                   stopRow = 0
                   startRow = 0
               End If
           End If
       Next
Next

If Not delRa Is Nothing Then
       delRa.EntireRow.Delete
       Set delRa = Nothing
End If
MsgBox "Удалено!"
End Sub