Rang-Funktion via VBA mit Problemm

ich habe die zwei nachfolgenden Code in der xlRecherche
gefunden.

Mein Problem: Leider funktionieren beide nicht, wenn in der
Liste mehrere gleiche Werte vorhanden sind.
Fehlermeldung: #NW#

Und ich möchte aufsteigend sortiert haben
d.h. dem kleinsten Wert auch den kleinsten Rang vergeben.

Sub test1()
Dim i%
For i = 1 To 10
Cells(i, 2).Formula = "=Rank(" & i & ", A:A)"
Next i
End Sub

Sub test2()
Dim i%
For i = 1 To 10
Cells(i, 2) = Application.Rank _
(i, Columns("a"))
Next i
End Sub

Kann mir jemand helfen?

Viele, viele Dank.

Grüße