Excel VBA как express Делать l oop, пока activecell.value = значение в указанной ячейке c

Question

Я пытаюсь

Do
Selection.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+0.01"
Loop Until ActiveCell.Value = "$C$1"

Но это не работает

Pls. help

я пытаюсь добавить + 0,01 от первого значения (1) до равного последнего значения (1,9)

Вот мой весь код

[Sub ExtractRC()


  Range("A2:A" & Range("A2").End(xlDown).Row).Select
  Cells(Rows.Count, "A").End(xlUp).Select
  Selection.Copy
  Range("C1").Select
  Selection.PasteSpecial Paste:=xlPasteValues

Range("k2").Select
ActiveCell.FormulaR1C1 = Range("A2").Value

Do
Selection.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=R\[-1\]C+0.01"
Loop Until ActiveCell.Value = "$C$1"

End Sub][1]

PS Значение в столбце А может измениться