Try this

Sub Macro1(
Range("A1").Select ' Right at the to
While Err.Number =
On Error GoTo L
ActiveSheet.Cells.Find(What:="-+-", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
.Activat
ActiveSheet.Rows(Selection.Row).Delet
Wen
L0: Exit Su
End Sub