Delete both duplicate rows

Hello

I have a list of emails. In it there are many duplicated addresses and I need to remove both duplicates, and leave the list with only the unique addresses.

I would need a macro that deletes both rows of the same address.

Here is one, but it doesn't work or I am doing something wrong:

Sub aaa()
  For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) Then
      Cells(i, 1).EntireRow.Delete
      Cells(i - 1, 1).EntireRow.Delete
    End If
  Next i
End Sub

Any help?
Many thanks.