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