Crear una macro para copiar y pegar datos de un rango de celda a otra Office 2007

Hola yo aplique esta rutina en un ejemplo y me funciona bien con dígitos menores a 13 Dígitos

Private Sub CommandButton4_Click()
Ultimo = Range("A65000:B65000").End(xlDown).Value
diré = Range("A8:B8").End(xlDown).Address
For Each celda In Range("A8:B8:" & diré)
If Application.WorksheetFunction.CountIf(Columns(celda.Column), celda.Value) > 1 Then
celda.Select
celda.Interior.ColorIndex = 4
End If
Next
MsgBox "Las celda en color verde son VALORES DUPLICADOS, Haga clic en aceptar para corregir"
End Sub

Pero no funciona bien con valores arriba de 13 dígitos

De antemano muchas gracias po su ayuda

Saludos