eliminar cerdas repetidas

hola, scastillo!

... archivo... con tres columnas, y quisiera eliminar la filas duplicada donde id y ruta sean iguales.
id ruta fecha
0100 cibao 10/07/2005
0100 cibao 10/07/2005
0102 local 10/07/2005
0102 local 10/07/2005
0103 linea 10/07/2005
0103 linea 10/07/2005
el resutado que espero es:
0100 cibao 10/07/2005
0102 local 10/07/2005
0103 linea 10/07/2005

no comentas los rangos 'aplicables' :((
suponiendo que solo utilizar las columnas A, B y C y que tienes libres D y E...
-> voy a usar el rango 'E1:E2' para depositar una formula en 'E2' y utilizar los filtros avanzados :))

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

haz una prueba ->en una copia de tu archivo<- con las siguientes lineas...
en un modulo de codigo 'normal' ==Sub Elimina_Duplicados()
Application.ScreenUpdating = False
Range("e2").Formula = _
"=sumproduct(1*(($a$2:a2&""\""&$b$2:b2)=(a2&""\""&b2)))>1"
With Range("a1").CurrentRegion
.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("e1:e2")
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
End With
ActiveSheet.ShowAllData
Range("e2").ClearContents
ActiveSheet.UsedRange
End Sub