Bitte Makro korregieren

wie kann ich anstatt "C23:C" den relativen bezug "ActiveCell"
eingeben, d.h. Makro soll von der ActiveCell in Spalte C bis-
i = Cells(Rows.Count, 2).End(xlUp).Row durchlaufen?

Sub Klappt_Nicht()
Dim i%
i = Cells(Rows.Count, 2).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=RC[-1]-R22C2"
Range("C23:C" & i).FillDown
End Sub

Vielen Dank.

Grüße