Beginner VBA question

[light]

Trying to rank the column on the left with this formula:

ActiveCell.FormulaR1C1
"=RANK(RC[-1],RC[-1]:selection.End(xlDown).Select,0)"

Can someone tell me how to write this properly

 

[Bernie Deitrick]

light,

One way:

With ActiveCell
Range(.Cells(1, 1), .Cells(1, 0).End(xlDown)(1, 2)).Formula = _
"=RANK(" & .Cells(1, 0).Address(False, False) & ", " & _
Range(.Cells(1, 0), .Cells(1, 0).End(xlDown)).Address & ")"
End With

HTH,
Bernie
MS Excel MVP