EXCEL - VBA 找出最大值

Public Sub OK()
Range("C3").Select
ActiveCell.FormulaR1C1 = "=MAX(RC[-1]:R[17]C[-1])"
x = ActiveCell.Value


Range("b2").Select


While (ActiveCell.Value <> x)

ActiveCell.Offset(1, 0).Select

Wend
y = ActiveCell.Row
y = "c" & y
Range(y).Value = x

Range("C3").Value = Empty



End Sub