マクロで指定した場所に行を追加したいです。

質問

皆さんお世話になります。今、金銭出納帳を作っているのですが、記入する行がそのたびに増えてしまい困っています。
　50行ほどの表ですが，最終行に合計の行が設けてありSUM関数で合計を出しています。この50番目の行が下に移動していき行を増やしたいとおもっております。まだエクセルを習い始めて二ヶ月ですが興味があり遅くまで取り組んでいます。コードも書いた事がありますが、うまく動きません。
　Sub PrcInsert Row()
Range("50:50").Insert
End sub
だと50の場所に入力した数字が上に上がっていってしまい数字を削除しなければなりません。
　Range("A65536").End(xlup).Insert Shift:=xlDown
でして見た所表内の行は増えずに1Aからし他のほうに増えていき、この表につけたタイトルも下のほうへ下がっていく始末・・・・・。
　最初から間違っているのでしょうか？また、オートシェイプで作ったボタンにマクロの登録をしたのですが、これがいけないのでしょうか？
　大変、不躾ですがコードを教えてください。別の方法でも結構ですがマクロの学習をしておりますのでそのフィールドでのご返事をお待ちしております。よろしくお願いいたします。

回答No.1

mitarashi · ベストアンサー

金銭出納帳に新しいデータを追加するのに、行が増えるのは当然だと思いますので、意味が分かりかねます。SUM関数をいじらないで、新しい行を追加し、データを入力したいというご趣旨なら理解できます。その場合であれば、合計行の上に、空行を設け、合計は、空行も含めた式にしておき、新しい行は空行の上に挿入すると、SUM関数の範囲はEXCELが自動で調整してくれます。
たとえばA列にデータが入っている場合、簡単には次の様なコードで、空行の上に新規行を挿入できます。
Sub test()
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
End Sub
下から攻めるなら、
Sub test2()
Range("A65536").End(xlUp).Select
Selection.Offset(-1, 0).Select
Selection.EntireRow.Insert
End Sub
Selectする必要は無いのですが、自動記録したものを最小限手直しいたしました。
外していたら済みません。その場合は、他の回答者のためにも補足説明をお願いします。

お礼

mitarashi様　どうもありがとうございます！朝、見たらメッセージが入っていて感激しました！今日の夜に、この中の「下から・・・」がイメージしていたものですので作ってみます。　
　説明不足ですみません。
50行目に合計行があったとして、すでに49行目に入力済みの行があり、その50行目と49行目の間に行を追加する事をずっと繰り返し行えるかをかんがえていました。これから、仕事なのでテスト出来ませんが、夜が楽しみです。わくわくしています。　ご返事、ありがとうございました。

補足

mitarashi様、出来ました。合計行の上に空行を儲け、その手前までSUM関数の範囲として実行したらその通りになりました。合計行の上の空行は行を隠してしまい気にもならないし感動しました。初心者な者で笑わないでください・・・。またよろしくお願い致します。