Nella cella A10 inserisco il valore più grande del range A1:A4
codice:
 Range("A10").Select
 ActiveCell.FormulaR1C1 = "=LARGE(R[-9]C:R[-6]C,1)"
LARGE(Range,il "ennesimo" in ordine di grandezza)