Excel マクロ-Pivotを自動更新

Pivotのデータ選択範囲を
挿入＞名前＞定義で以下のように定義づけして名前をつける。
=OFFSET($A$1,0,0,COUNTA($A:$A),COUNTA($1:$1))
※たとえば名前を「データ範囲」とする。

Macroに以下を記述
Sub Renew()
　　　Range("A1").Select
　　　ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
　　　"データ範囲"
End Sub

http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/exqalounge.cgi?print+200512/05120052.txt
のkomaさんのコメントを参考にさせていただきました。