データの最後尾より連続入力するマクロについて

質問

VBA初心者です。宜しくお願いします。
やりたい処理は、データ最後尾に連続データを順に入力していく作業です。
下記ですとA5:F5のデータをA6:F6にオートフィルで入力し、
A6= 6 B6= 空白　C6= 空白　 D6= 空白　E6= を　F6= ん
という計算結果にしたいのです。

___|A__B__C__D__E__F
1 | 1 あ い う え お
2 | 2 か き く け こ
3 | 3 さ し す せ そ
4 | 4 た ち つ て と
5 | 5　　　　　　を　ん
6 |

Range("A1").End(xlDown).Select
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select

A5:F5を選択した後のオートフィルのマクロはどう記述すればよいでしょうか？
宜しくお願いいたします。

回答No.1

merlionXX · ベストアンサー

Sub test()
Dim Rng(1) As Range
Set Rng(0) = Range(Range("A1").End(xlDown), Range("A1").End(xlDown).Offset(0, 5))
Set Rng(1) = Rng(0).Resize(2, 6)
Rng(0).AutoFill Destination:=Rng(1), Type:=xlFillDefault
End Sub

では？