マクロVBA - ピボットテーブルCurrenRegion

Question

私は、ファイル名を指定して実行時エラー1004エラーメッセージ

得続ける午前： レンジクラスのCurrentRegionプロパティを取得できませんが。

ソースが変更されているため、動的なソースデータを作成しようとしています。

Dim pc As PivotCache 
Dim pt As PivotTable 

Set pc = ThisWorkbook.PivotCaches.Create(_ 
    SourceType:=xlDatabase, _ 
    SourceData:=Sheet1.Name & "!" & Sheet1.Range("A1").CurrentRegion.Address, _ 
    Version:=xlPivotTableVersion14) 

Worksheets.Add 
Range("A3").Select 

Set pt = pc.CreatePivotTable(_ 
    TableDestination:=ActiveCell, _ 
    TableName:="NetZero") 

Answer 1

このためにマクロは必要ありません。ソースデータを表に変換するだけです。ホームメニューの「表形式」ボタンを使用します。ソースデータは常に動的になります。

Answer 2

あなたが成長するダイナミックレンジ（ないテーブル）を使用しての概念を使用して保存しておきたい場合は、以下のコードを使用します

Dim pc As PivotCache 
Dim pt As PivotTable 

Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ 
        SourceData:=Sheet1.Range("A1").CurrentRegion.Address(False, False, xlA1, xlExternal)) 

Worksheets.Add 

' there's no need to select the Range, you can set the Table destination to "A3" 
Set pt = pc.CreatePivotTable(TableDestination:=Range("A3"), TableName:="NetZero") 

を