Delete row if some columns equal others

[lmvmbc]

How should I make a code that deletes rows if:
Some value in column B has its symmetric in column B as well AND Column E coincides for both. If TRUE, I want to delete the row with the positive value.

Hope someone can give me a help!

Thanks in advance

I did something like the following but I don't know how to make it ANY row instead of +1 neither how to make it delete the positive B column value row.

Sub anulaçoes()
Dim LastRow As Long
LastRow = [A4725].End(xlUp).Row
For i = LastRow To 1 Step -1
If Cells(i, 2) = -Cells(i + 1, 2) And Cells(i, 5) <> Cells(i + 1, 5) Then Rows(i & ":" & i).EntireRow.Delete
Next i
End Sub