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.

Buenas dias,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added them for you this time. Please read all forum rules and comply in the future.)