For this you need to write a macro. If you know VBA Coding
It can do all the things, the you require.

Sub Clearout()
Dim LastRow As Long
Dim mpCell As Range
Dim mpStart As Long
Dim mpEnd As Long

   LastRow = Range("A" & Rows.Count).End(xlUp).Row
   Do
       Set mpCell = Nothing
       Set mpCell = Columns(1).Find("apple", LookIn:=xlValues)
       If Not mpCell Is Nothing Then
           mpStart = mpCell.Row
           Set mpCell = Nothing
           Set mpCell = Columns(1).Find("bacon", LookIn:=xlValues)
           If Not mpCell Is Nothing Then
               mpEnd = mpCell.Row
               Rows(mpStart & ":" & mpEnd).Delete
           End If
       End If
   Loop Until mpCell Is Nothing
End Sub