エクセルVBAによる不連続データ群の合算と、ワークシートをまたぐ連続処理について

質問

エクセルのVBAによる、合算処理が上手くいかずに困っています。
現在の状況ですが、１つのワークブックト中に、
いくつかのシートに分かれたデータ群があります。
それぞれのシートごとのデータ群で合算したいと思っています。
１つのデータ群に対してのVBAは作成できたのですが、
それぞれのデータ群ごとに合算しつつ、シートをまたいで
連続処理することができません。
お知恵を拝借できれば幸いです。

Workbook Sheet1の内容
　　　[ A ][ B ][ C ][ D ][ E ]
[ 1]　日付 品名 予算 金額 差額
[ 2]　3/1 aaa 1000 200　800
[ 3]　3/1 bbb 500 100　400
[ 4]　3/1 ccc 600 200　400
[ 5]　　　合計 2100 500 1600
[ 6]　
[ 7]　日付 品名 予算 金額 差額
[ 8]　2/1 ddd 1000 ５00　 500
[ 9] 2/1 eee 2000 600　1400
[10] 2/1 fff 1800 1200　 600
[11]　　合計 4800 2300 2500
[12]
[13]　日付 品名 予算 金額 差額
　　　以下、同一シート内にデータ群が続いていき、
　　　さらにWoorkbook Sheet2, Sheet3 ..... と続きます。

　　　以下、自作のVBA

Sub sample()

Dim my_last_row As Long '最終行の行数用
Dim my_last_address_sum As Long '最終行から一つ下のセル（合計用のセル）のアドレス取得用

my_last_row = Range("D65536").End(xlUp).Row
my_last_address_sum = Range("D65536").End(xlUp).Offset(1).Address(RowAbsolute:=False)

'=sum関数の埋め込み
Range(my_last_address_sum).Formula = "=sum(C1:" & "C" & Format(my_last_row) & ")"

'=sum関数を埋め込んだセルのコピー
Range(my_last_address_sum).Copy

'=sum関数を埋め込んだセルから、右に１つ分だけセルを移動する
Range(my_last_address_sum).Offset(0, 1).Select

'移動したセルを基準にして、右に2つ分だけセルを拡張する（合計3セルを選択する）
Range(ActiveCell, ActiveCell.Offset(0, 2)).Select

'選択した3つのセルに対して、=sum関数を埋め込んだセルのペーストする
ActiveSheet.Paste

'セルA1に戻る
Range("A1").Select

End Sub

回答No.1

tossy005

データ群同士の間に１行あいているルールがあるならば、
空白行であり、かつ２行以上空白行が続いていない行に対し合計を埋め込めばよいと思います。
または、ご使用されているmy_last_row = Range("D65536").End(xlUp).RowのRangeを前回合計を埋め込んだセルからD65536までに変更し、前回合計を埋め込んだセルが返ってくるまで繰り返すか。
シートをまたぐのは、
Dim xlsheet as worksheet
for each xlsheet In Worksheets
'シート毎の処理
next
という感じでできると思います。

お礼

tossy005さま
すばやいご回答どうもありがとうございました。
とてもよいヒントになりました。
いただいた内容を元にして自分でも試行してみます。

追伸
ほかのみなさまも、ぜひお知恵をお貸しください。