マクロで、行追加後もオートフィル&並べ替えができるようにしたい
マクロでわからないことがあるので教えていただけないでしょうか?
(1)計算式を入力
(2)オートフィルでコピー
(3)並べ替え
このようなマクロを作りたいのですが、行を追加してもちゃんとオートフィルと並べ替えができるようにしたいのです。
過去の「教えてgoo」に載っていたものをコピーしてVBに貼り付けたら、オートフィルはできるようになったのですが、並べ替えがうまく実行されません。
どうも範囲がおかしいように思うのですが、もともとVB言語の意味がわかっていないので、どう変更すればいいのかさっぱりわかりません・・・
以下は、現在のマクロの記述です。セルI7を基準にして、H列も一緒に並べ替えたいと思っています。H列とI列は行が増えたり減ったりします。
勉強不足ですいませんが、教えてください。よろしくお願いいたします。
-------------------------------------------------------
Sub 計算→並べ替え()
'
' 計算→並べ替え Macro
' マクロ記録日 : 2006/12/1 ユーザー名 : ○○
'
ActiveCell.FormulaR1C1 = "=MOD(RC[-1],5)"
Range("I7").AutoFill Destination:=Range("I7", Range("H65536").End(xlUp).Offset(, 1))
Range("I7").Select
Range("H6:I13").Sort Key1:=Range("I7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
-------------------------------------------------------