Как добавить критерии суммы сводной таблицы?

---

код показывает ошибку в строке xlsum, которая является последней строкой.

Что я уже пробовал:

Sub formatPivot()
'Declaration
Dim ws As Worksheet
Dim pc As PivotCache
Dim pt As PivotTable
'Adding worksheet for the destination of the pivot table
Set ws = ActiveSheet
'Creating Pivot cache
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "dashboard!R6C14:R502C18")
'Creating Pivot table
Set pt = pc.CreatePivotTable(ws.Range("T6"))
'Setting Fields
With pt
'set row field
With .PivotFields("Region Code")
.Orientation = xlRowField
.Position = 1
End With
.AddDataField .PivotFields(" Sample Compliance "), "Sum of Sample Compliance", xlSum
End With
Application.ScreenUpdating = False
End Sub

---