エクセルマクロにて最終行まで数式をコピーする構文

エクセルマクロ初心者です。
以下図のように、項目１（A列）の書式を文字列にし、
項目２（B列）に表示させたいと思っています。

手順としては以下の通り考えていますが、②の構文の記載方法がわかりません。
ご存じでしたら、教えていただきたいです。

①項目２の頭行（B2)に「＝VALUE」関数を挿入し、参照値を項目１の頭行（A２）とする
②項目１（A列）の参照値がある最終行まで、項目２（B列）数式をコピーする

記録とネットで調べて以下のように構文を記載してみましたが、
最終行までのコピーができませんでした。
どなたかご存じでしたら、ご教授いただけましたら幸いです。


Range("B2").Select
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("B2" & i).FillDown

No.2 回答者： fujillin 回答日時： 2020/02/12 09:19

こんにちは

セル範囲に対して、Range.Formla等を設定すれば、フィルコピーの必要はなくなります。

Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))FormulaR1C1 = "=VALUE(RC[-1])"

とか。

No.1 回答者： GooUserラック 回答日時： 2020/02/12 01:39

以下ではいかがでしょうか？

Range("B2").Select
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"
Range("B2:B" & i).FillDown