EXCEL VBA：UsedRangeを使用しようとするとPivot Tableエラーを修正する方法？

Question

私は列上のガス、行のダッシュ番号、入力用の私の数で単純なピボットテーブルを作成しようとしています。 私はこの質問を研究しており、解決策を見つけることができません。私のコードを実行しようとすると、私は得続ける

エラー1004：アプリケーション定義またはオブジェクト定義のエラー。ここで

私のコードです：

Sub CreatePivotTable() 

Dim sheet As Worksheet 
Set sheet = Worksheets("mac3") 

Sheets.Add.Name = "Table" 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
sheet.UsedRange, Version:=xlPivotTableVersion14). _ 
CreatePivotTable TableDestination:="Table!R3C1", TableName:="Pvt" _ 
, DefaultVersion:=xlPivotTableVersion14 

    Sheets("Table").Select 
    Cells(3, 1).Select 
    With ActiveSheet.PivotTables("Pvt").PivotFields("Gas") 
     .Orientation = xlColumnField 
     .Position = 1 
    End With 
    With ActiveSheet.PivotTables("Pvt").PivotFields("Dash") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 
    ActiveSheet.PivotTables("Pvt").AddDataField ActiveSheet.PivotTables(_ 
     "Pvt").PivotFields("Qty"), "Sum of Qty", xlSum 
    Range("B4").Select 
    Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _ 
     False, True, False, False) 
End Sub 

Answer 1

あなたはすでにあなたのワークシートに "PVTのを" 持っていますか？ このエラーが発生する可能性があります。その場合は、シート名と表名を別のものに変更してみてください