En ocasiones tenemos la necesidad de eliminar registros duplicados de nuestra hoja de Excel que coincidan con la duplicidad en diferentes columnas.
Aquí una elegante y buena opción para realizar esto:

EliminaDuplicados.xls 

Option Explicit
Sub EliminarFilas()
Dim objDic As Object, i As Integer

Set objDic = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
 i = 2
  Do While Cells(i, "A") <> ""
     'Ajustar a columna criterio, en este ejemplo las columna criterio son
     'las columnas A, B y D.
    If Not objDic.Exists(Cells(i, "A") & Cells(i, "B") & Cells(i, "D")) Then
      objDic.Add Cells(i, "A") & Cells(i, "B") & Cells(i, "D"), 1
      i = i + 1
    Else
      Rows(i).EntireRow.Delete
    End If
  Loop
Set objDic = Nothing
Application.ScreenUpdating = True

End Sub