作業時間の集計のピポットテーブルを作成するマクロを作っています。SourseDataの表示でエラーが出てしまいます。

前提・実現したいこと

作業月報を集計するマクロを作り、作業内容ごとの作業時間をピポットテーブルを作成するマクロを作ろうと思っています。
作業月報を集計するマクロの作成まではできたのですが、作業内容ごとの作業時間をピポットテーブルにするマクロの作成で手間取っています。
作業月報を集計するマクロで作られたエクセルは、月ごとのシートを縦列に並べ、最終行に総合計時間が表示されるものです。
それを元データとして、ピポットテーブルを作りたいと思っています。

発生している問題・エラーメッセージ

SourseDataの表示の仕方でエラーが出てしまいます。

エラーメッセージ
実行時エラー´424´:
オブジェクトが必要です。

### 該当のソースコード
Sub ピポットテーブル作成()
Dim pc As PivotCache
Dim pt As PivotTable

Set pc = ActiveWorbook.PivotCaches.Create( _
               SourceType:=xlDatabase, _
               SourceData:=Range("A1").CurrentRegion)　←※ここでエラーになっているようです。

Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "ピボットテーブル"
    
Set pt = pc.CreatePivotTable( _
               TableDestination:=Worksheets("ピボットテーブル").Range("A3"), _
               TableName:="ピポットテーブル1")
               
    With ActiveSheet.PivotTables("ピポットテーブル1").PivotFields("図面区分")
        .Orientation = xlRowField
        .Position = 1
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("ピポットテーブル1").PivotFields("作業区分")
        .Orientation = xlRowField
        .Position = 2
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("ピポットテーブル1").PivotFields("作業内容")
        .Orientation = xlRowField
        .Position = 3
        .PivotItems("(blank)").Visible = False
    End With
    ActiveSheet.PivotTables("ピポットテーブル1").AddDataField ActiveSheet.PivotTables( _
        "ピポットテーブル1").PivotFields("時間"), "合計 / 時間", xlSum
    With ActiveSheet.PivotTables("ピポットテーブル1").PivotFields("時間")
        .PivotItems("0.0 ").Visible = False
    End With