salve
la cosa è possibile inserendo laa funzione Rango all'interno di un codice Vba.
una cosa di questo tipo:
Sub Rango()
With Sheets("foglio1")
riga = 2
Set miorange = .Range("b2", .Range("b2").End(xlDown))
.Range("c2", .Range("c2").End(xlDown)).ClearContents
For Each cl In miorange
cl.Offset(o, 1).Value = Application.WorksheetFunction.Rank(Cells(riga, 2), miorange, 0)
riga = riga + 1
Next
End With
Range("a1").Select
End Sub
ovviamente associando questa macro ad un pulsante sul foglio.
Per facilitarti le cose ti mando il file con l'esempio.
saluti
Andrea