Try

Code:
.Range("P6:P" & lngLastRow).FormulaR1C1 = "=INDEX(R6C14:R" & lngLastRow & "C14,RANK(RC[-1],R6C15:R" & lngLastRow & "C15,0))"