Excel - problema con duplicado de datos

Sub Duplicado2()

Dim EntrCom As Variant

Dim f As Integer

Set r = Range("A2:A1000") 'Establece rango maximo de datos en columna A1

For n = 1 To r.Rows.Count

If r.Cells(n, 1).Value = Empty Then 'Calcula numero de celdas ocupadas

f = n 'establece contador para bucle

Exit For

End If

Next n

'------------------------------------------------------------------------------

For n1 = 1 To f

EntrCom = FORMULARIO.TXTUSERID 'Almacena valor a comparar mediante bucle

For n2 = 1 To f 'Bucle que compara la variable EntrCom con todos los valores de las celdas

If n1 <> n2 Then 'menos con el suyo

If EntrCom = Cells(n2, 1).Value Then

MsgBox "Entrada en fila A" & n1 & ", repetida con fila A" & n2

End If

Else

Exit For

End If

Next n2

Next n1

End Sub

Function Duplicados(Codigo) as Long

    Dim Fila as Long

    Fila=1

    While Cells(Fila, 1) <>""

        If Cells(Fila, 1) = Codigo Then Duplicados=0

    Wend

    Duplicados=Fila

End Function

Function Duplicados(Codigo) as Long

    Dim Fila as Long

    Fila=1

    While Cells(Fila, 1) <>""

        If Cells(Fila, 1) = Codigo Then Duplicados=0

        Fila = Fila + 1

    Wend

    Duplicados=Fila

End Function