Cómo eliminar filas d valores diferentes d 2 columnas?

Te paso el código
Sub eliminarDuplicados()
Dim i As Long, cant As Long
If MsgBox("Se eliminarán las filas coincidentes? Está seguro de continuar", vbYesNo, "Atención") = vbNo Then Exit Sub
i = 2
Do While Cells(i, 1) <> ""
   If Cells(i, 1) = Cells(i, 5) Then
      Cells(i, 1).EntireRow.Delete shift:=xlUp
      cant = cant + 1
   Else
      i = i + 1
   End If
Loop
MsgBox "Se eliminaron " & cant & " filas", vbOKOnly, "Información"
End Sub
Saludos
gfellay