rank top 5 high

A recorded macro yielded this result. It can likely be cleaned up and made more efficient by a VBA expert. It is however a start.

Sub Rank()
'
' Rank Macro
'

'
    Range("B1").Select
    Selection.FormulaR1C1 = _
        "=IF(RANK(RC[-1],R1C[-1]:R7C[-1],0)>5,"""",RANK(RC[-1],R1C[-1]:R7C[-1],0))"
    Selection.AutoFill Destination:=Range("B1:B7"), Type:=xlFillDefault
    Range("B1:B7").Select
    Range("D1").Select
End Sub