macro en excell que busque duplicados y añada un si 1 o duplicado en otra celda

[wily78]

hola

Tengo una tabla de Excel con 20 000 registros y constantemente se añaden mas , cada 15 días hay que buscar los duplicados, tengo una macro que los marca con color, pero tardo mucho en ver si realmente es un duplicado o no, habría alguna manera de hacer una macro y que los duplicados les añadiera en una celda el valor duplicado?
a b z
1 coche duplicado
2 coche duplicaco
3 moto
4 camión



esta es la macro que tengo pero yo no la hice no se hacerlas


Sub CopiarCelda()

Dim Rango1 As Range
Dim celda1 As Range

Set Rango1 = Range("I1", "I26410")

For Each celda1 In Rango1


If WorksheetFunction.CountIf(Rango1, celda1.Value) > 1 Then
celda1.Interior.ColorIndex = 38

End If

Next celda1

End Sub


¿podrías ayudarme a hacer la macro?
un saludo
gracias