VBA 最終行に10行、行を挿入する作業。

VBA　最終行に10行、行を挿入する作業。
いつもお世話になっております。
上記の通りの質問をさせていただきたいです。
最終行は
With Range("A65536").End(xlUp).Offset(1)
End With
で取得できるのはわかります。でも挿入時には使えないらしく、
どうすればいいのか分かりません。
ちなみに最終行はその時によって代わります。
どうか宜しくお願い致します。

No.1 ベストアンサー 回答者： xls88 回答日時： 2010/07/14 08:00

＞Range("A65536").End(xlUp).Offset(1)

Offset(1)していますから最終行の1行下になります。
下記で試してみてください。

With Range("H65536").End(xlUp)
.EntireRow.Resize(10).Insert shift:=xlDown
End With

この回答へのお礼

回答有難う御座います！
10行挿入できました！
ただ書き忘れていて申し訳ないのですが、A5からAC5の表になっているのでそこから最終行を取得して行挿入するにはどうすればいいでしょうか？
教えていただいたものだとどうしても
4行目あたりで挿入されてしまいます。

お礼日時：2010/07/14 08:10