マクロ実行時にエラーが出てしまいます

質問

マクロを記録し、それを実行しようとしたのですが、途中で下記のようなエラーが出てしまいます。

実行時エラー　'1004':
PivotTableクラスのPivotFieldsプロパティを取得できません。

黄色い矢印がとまっているのは下記の箇所です。

→With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("送付先")←

自分なりに調べてみたのですが、選択範囲("E2:E1288"等の箇所)が違うデータでマクロを実行するとエラーになるのだと思っているのですが、選択範囲が毎回変わるのに対応できるコードの変更の仕方が分かりません。

もしよろしければ、アドバイスを頂けませんでしょうか。

コードの全体は下記になります。

Sheets("本体").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "品目分け"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-2],1)"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E1288")
Range("E2:E1288").Select
Sheets("計算結果").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,SourceData:= _
"本体!C1:C5").CreatePivotTable TableDestination:="[計算用.xls]計算結果!R3C1", _
TableName:="ピボットテーブル",
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("ピボットテーブル").ColumnGrand = False
With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("送付先")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("品目分け")
.Orientation = xlColumnField
.Position = 1
End With
Range("E4").Select
ActiveSheet.PivotTables("ピボットテーブル").AddDataField
ActiveSheet.PivotTables( _"ピボットテーブル").PivotFields("数量"), "データの個数 / 数量", xlCount
ActiveSheet.PivotTables("ピボットテーブル").PivotFields("データの個数/ 数量").Function = _xlSum
With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("品目分け")
.PivotItems("(空白)").Visible = False
End With
Range("A1").Select
End Sub

回答No.1

goold-man

＞実行時エラー　'1004':
＞PivotTableクラスのPivotFieldsプロパティを取得できません

参考URLをご覧ください。

＞コードの全体は下記になります

すみません。見ていません。先ず、参考URLを。
http://www.keep-on.com/excelyou/1999lng4/199904/99040121.txt

参考URL：

http://www.keep-on.com/excelyou/2001off20/200105/01050137.txt

お礼

ありがとうございます。
参考URLを見てみます。