VBA 最終行の下に入れた値を任意の番地までペーストする方法

Question

Sub test()
NextRow = Cells(Rows.Count, Clm).End(xlUp).Row + 1
With Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = "Info"
.Offset(1, 1) = "Info"
.Offset(1, 2) = "Info"
End With
End Sub

このように　.Offset(1, 48) = "Info"
まで入れたいのですが効率が悪そうなので良い記述方法を教えて下さい。

宜しくお願い致します。

Answer 1

Range(.Offset(1, 0), .Offset(1, 48)) = "Info"

Comments

[Polpo]

ありがとうございました