vbaでエクセルデータが1行の時のオートフィルの記述

Question

いつもお世話になっております。

エクセルで1行目が各項目、2行目以降がデータの構成で、
データが2行目の1データしかない場合、マクロが止まってしまいます。

C2にDAY関数を入力して、C列最終行までにオートフィルでコピペしていきたいのですが、
そうすると
Selection.AutoFill Destination:=Range(C列選択範囲)
がエラーになって止まってしまいます。
（データが2データ以上ある場合は正常に動きます）

これはどのように記述すれば良いのでしょうか？

'最終行取得
        最終行 = Cells(2, "A").End(xlDown).Row
        
'C列挿入
        Columns("C:C").Select
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        
'DAY関数挿入
        Range("C2").Select
        ActiveCell.FormulaR1C1 = "=DAY(RC[-1])"
        C列選択範囲 = "C2:" & "C" & 最終行
         
        Selection.AutoFill Destination:=Range(C列選択範囲)

その他必要事項あれば追記いたします。

Answer 1

Sub test()
    ActiveSheet.Range("A1").CurrentRegion.Columns(3).Insert
    With ActiveSheet.Range("A1").CurrentRegion.Resize(, 3)
        Intersect(.Cells, .Offset(1), .Columns(3)).Formula = "=DAY(B2)"
    End With
End Sub

1つしか数式を入れるセルがないときにオートフィルをするのもおかしな話なので、対象セルを先に数えて条件分岐してもいいですが、
オートフィルしなくても、セル範囲に一括で数式は入力できるので、
とりあえず、数式を入れたい範囲を求められるようになりましょう＾＾

Answer 2

最終行変数の値を見てみれば一発だと思いますが、ご提示のコードだとシートの最終行を指すことになってしまいます。
この場合は、下から上に見るのが定石です。

最終行 = Cells(Rows.Count, "A").End(xlUp).Row

Answer 3

こちらの環境では(エラーで止まってしまう事に対して)再現性がありませんでしたが、
恐らく、１データしかない時、変数『最終行』に2が入っていない事が原因ではないかと思いました。