Rang aufsteigend sortieren

in der xlRecherche habe ich folgende Function gefunden
für eine durchgehende Rangfolge.

Function XRang(rng As Range, dValue As Double) As Integer
Dim iCounter As Integer, iCell As Integer, iLarge As Integer
For iCounter = 1 To rng.Rows.Count
If iLarge <> Application.Large(rng, iCounter) Then
iLarge = Application.Large(rng, iCounter)
iCell = iCell + 1
If Application.Large(rng, iCounter) = dValue Then
XRang = iCell
Exit Function
End If
End If
Next iCounter
End Function

Mein Problem: Ich möchte dem kleinsten Wert in der Liste den keinsten Rang
vergeben d.h.in aufsteigender Reihenfolge sortieren.

Kann mir jemand helfen?

Vielen Dank.

Grüße