Find keyword and delete the rows below and above

my request was changed as in 7th post
first part:
firts I want to find a specific word and the delete the rows above the row including found keyword.
In the sample find "there is no guarentee" then delete the rows (row numbers:4-3-2-1) (there is "there is no guarentee" 2 TIMES BUT THE FIRST ONE)

second part

I want to find a specific word and the delete the rows BELOW the row including found keyword.
In the sample find "ringtone to your cell" then delete the rows (row numbers:35-36-37...)) (there is "ringtone to your cell" 2 TIMES BUT THE LAST ONE)

This macro should work for all sheet in workbook.

before.xlsx
after.xlsx