Excelのマクロを使って四半期ごとの集計をしたい

Excelのマクロを使って四半期ごとの集計をしたいのですが、どのようにすれば良いのでしょうか？
VBAは初心者です。コードをコピペしてマクロを作ったことはありますが、今回作りたいものは、調べてみてもうまく作ることができませんでした。

＝（例）＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
【元データ.xls】
[Sheet1]蓄積データ
　 A（支店）　B（業務番号）　C（単価）　D（数量）　E（入金）
１ 北支店　　　No.1001　　　￥100　　　4000個　　 4月10日
２ 南支店　　　No.1002　　　￥100　　　6000個　　 4月20日
３ 北支店　　　No.1003　　　￥200　　　3000個　　 6月10日
４ 北支店　　　No.1004　　　￥150　　　2000個　　 8月25日
５ 南支店　　　No.1004　　　￥150　　　5000個　　 8月25日

[Sheet2]集計データ雛型
　 A（業務番号）　B（単価）　C（数量）　D（売上）
１ 　　　　　　　　　　　　　　　　 　　　=B*C
２ 　　　　　　　　　　　　　　　　 　　　=B*C

　　　↓（マクロ実行）

【集計データ.xls】
[Sheet1]北支店・第１四半期（4月～6月）
　 A（業務番号）　B（単価）　C（数量）　D（売上）
１ No.1001　　　￥100　　　4000個　　　=B*C
２ No.1003　　　￥200　　　3000個　　　=B*C

[Sheet2]南支店・第１四半期（4月～6月）
　 A（業務番号）　B（単価）　C（数量）　D（売上）
１ No.1002　　　￥100　　　6000個　　　=B*C

[Sheet3]北支店・第２四半期（7月～9月）
　 A（業務番号）　B（単価）　C（数量）　D（売上）
１ No.1004　　　￥150　　　2000個　　　=B*C

[Sheet4]南支店・第２四半期（7月～9月）
　 A（業務番号）　B（単価）　C（数量）　D（売上）
１ No.1004　　　￥150　　　5000個　　　=B*C
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

今後も、支店、業務番号の増加した分だけ、元データ.xls[Sheet1]の最下行に追加されてゆきます。
蓄積データを支店AND四半期ごとに集計し、雛型をコピーして入力、それを別ファイルにして吐き出す、というイメージです。できれば、ひとつのマクロで集計データ.xlsまで吐き出せると嬉しいです。

ご教示よろしくお願いいたします。

No.2 回答者： CoalTar 回答日時： 2016/04/20 11:19

マクロじゃないですが、ピボットテーブルで。

1. 売上データの作成
　Sheet1!F2セルに =C2*D2
　フィルハンドルダブルクリック
　ただし、単価、数量は数値であること。日付はシリアル値であること

2. ピボットテーブルのデータ範囲の可変化
　[Ctrl]+[F3]名前の定義
　 名前: PT範囲
　 参照範囲: =Sheet1!$A$1:INDEX(Sheet1!$F:$F,COUNTA(Sheet1!$A:$A))

3. ピボットテーブルの作成
　範囲:=PT範囲
　レイアウト
　 「列」フィールド:支店
　 「行」フィールド:入金
　 「データ」フィールド:売上

4. 行(入金)フィールドで右クリック
　 グループと詳細の表示 - グループ化
　 四半期(場合により年も)選択し[OK]

5. ピボットテーブルを選択して[！更新]クリックで範囲も更新されます
　ここのみ1行マクロの力を借りると便利
　5.1 ピボットテーブルのシート見出しを右クリック - コードの表示
Private Sub Worksheet_Activate()
　 　ActiveWorkbook.RefreshAll
End Sub

No.1 回答者： メロウ 回答日時： 2016/04/20 00:52

苦労している場所がわからないので、なんとも答えようがありません。

まずは支店ごとにシートを分けて記述できるか、
四半期ごとにシートを分けて記述できるかから始めましょう。
これができれば、あとは組み合わせです。
（売り上げは元データにも入れてあげたほうがいいかも）

仕様はきっちりしていますので、外注するというのも一つの手です。