Code:
Sub rdRowM1()
Dim r As Range, f As Range
Set r = Range("B2", Cells(Rows.Count, "B").End(xlUp))
Set f = r.Cells(r.Rows.Count, 1)
Set f = r.Find("REVERSE DIRECTION", f, xlValues, xlWhole, xlNext)
If f Is Nothing Then Exit Sub
With f.Offset(1)
If .Value = "" Then .EntireRow.Delete
End With
End Sub