マクロを利用してピポットテーブルを作成する方法を教えてください

質問

マクロを利用してピポットテーブルを作成する方法を教えてください。
仕事を効率化するために必要となりますが、マクロの知識がないため教えていただけないでしょうか。よろしくお願いします。

ピポットのデータとなりますエクセルの表は日付、金額、摘要の３列で行がその都度異なります。

日付　　　　金額　　　　摘要
　月　日　　××円　　　××
　月　日　　××円　　　××

自動記録を利用し、作成しましたものは下記の通りです。
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"科目!R1C1:R30C3").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ピボットテーブル1").SmallGrid = False
ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:="摘要", _
ColumnFields:="日付"
ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("金額").Orientation = _
xlDataField
Application.CommandBars("PivotTable").Visible = False
Range("B4").Select
Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, True)
End Sub
どこをどのように変更すればよろしいでしょうか。

回答No.2

sakusaker7

すみません。ちと他のことでこちらに反応できませんでした。

> このデータ範囲を取得する際にアクティブセルのデータを取得する

えーと、「アクティブセル」という言葉をそのまま受け取れば、
ActiveCell というプロパティでその内容を得ることができますが、
それと「範囲を取得」というのがどう結びつくのかよくわかりません。

Office TANAKA - Excel VBA(アクティブでないシートのアクティブセル)
http://officetanaka.net/excel/vba/tips/tips34.htm

セル関連の基本的なマクロ（
http://homepage2.nifty.com/kasayan/vba/excel3.htm

回答No.1

sakusaker7

新しいマクロの記録でのデータ範囲を自動取得に直す
http://www.hirano.ecnet.jp/vba/pivot.htm

↑ここを読んでもまだわからないようならもう一回訊いて下さい。
ただし、その際にはどこがどのようにわからないか具体的に書いてください。

お礼

sakusaker7さん　回答ありがとうございました。

添付いただきましたサイトを確認いたしました。
正直に申し上げますとマクロについての知識は全くない状況にありまして、どこをどのようにすればよいのかもわからない状況にあります。

ピポットのデータ範囲を取得する際に
"科目!R1C1:R30C3"
で固定しているところを変数に変更すればよいというのはわかりました。

このデータ範囲を取得する際にアクティブセルのデータを取得するようにするためには自動記録で作成しましたマクロのどの部分をどのように変更すればよいのでしょうか。
よろしければ教えていただきたく、よろしくお願いします。