Excel VBA 執行階段'1004': 應用程式定義或物件定義的錯誤

大家好，初學Excel VBA，卡在這個錯誤好久，
自知非常初階，但一一比對書上的程式碼仍無法解決，只好上來請教各位大大。

主要目的是要利用分頁"B1"內的資料製作樞紐分析表在新分頁"Test"，程式碼如下：
--------------------
Sub CreatePivotTable()

Dim PT As PivotTable
Dim WS As Worksheet

With Sheets.Add
.Name = "Test"
End With
Set WS = ActiveWorkbook.Worksheets("Test")

For Each PT In WS.PivotTables
PT.TableRange2.Clear
Next

Dim PTCache As PivotCache
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Worksheets("B1").UsedRange)

Set PT = PTCache.CreatePivotTable(TableDestination:=WS.Range("A3"))
PT.ManualUpdate = True
PT.AddFields RowFields:=Array("貨主名稱", "運輸日期", "項目", "貨物名稱", "數量", "單位", "單價")

(……後面程式省略)

--------------------

偵錯後發現紅色那行會出現「執行階段'1004'錯誤」，
已確定分頁"B1"內含226行資料，執行程式後分頁"Test"也有順利新增，
再麻煩各位前輩指教哪裡需要修正，謝謝