vbaで関数を連続コピーする。vbaでオートフィル機能を使う方法。

A列に空白がない行が連続入力されていることが前提で、B列の2行目に関数を設定し、A列の最終行まで、連続コピーする。
vbaでオートフィル機能を使う方法。

Range("B2").Value = "= A2 & A2"

----- べんりあつめ。-----

Dim xxx As Integer
Dim MaxRow, MaxCol As Long
With ActiveSheet.UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
End With
Range(ActiveSheet.Cells(2, 2), ActiveSheet.Cells(MaxRow, 2)).Select
Selection.FillDown

End Sub