VBAでピボットテーブルは作れるものでしょうか

2つ連続して質問してしまい申し訳ありません。
以下のようなExcelデータがあります。
このデータを用いて、ピボットテーブルを作りたいと考えています。

縦項目に変数A(氏名)、横項目に変数B(科目)
クロス表に示される値を変数C(得点)
としたいと考えています。
変数Dは過去の試験結果で今回は用いません。

手操作でのピボットテーブルは自分で作成できるのですが、今後のために
自動的に処理させる一環として、VBAのプログラムでピボットテーブルを
作成したいと考えています。
そのようなことは可能でしょうか？
もし可能でしたらどのようなコードになるのでしょうか。
お手数ですが、教えていただけると幸いです。
よろしくお願いいたします。


A　　　　B　C　　D
Ｘさん　国　60　65
Ｘさん　社　90　85
Ｘさん　数　70　55
Ｘさん　理　80　75
Ｘさん　英　65　70
Ｙさん　国　85　85
Ｙさん　社　95　90
Ｙさん　数　95　100
Ｙさん　理　90　90
Ｙさん　英　85　90
Ｚさん　国　55　60
Ｚさん　社　40　35
Ｚさん　数　40　50
Ｚさん　理　60　65
Ｚさん　英　35　30

No.1 ベストアンサー 回答者： xls88 回答日時： 2008/09/03 03:44

過去ログが参考になるかも知れません。

マクロでピボットテーブルを作成するには？
http://oshiete1.goo.ne.jp/qa2926805.html

どこまで出来ているのか解らないのでなんですが、ピボットテーブル作成作業を「マクロの記録」すればいかがでしょうか。