Установка свойства функции в сводной таблице модуля VBA

Question

Я пытаюсь установить мою функцию сводной таблицы как сумму поля.Ниже приведена основная часть моего кода, я не понимаю, почему он не может установить эту функцию.У меня проблемы с полями "Count_PONumber" и "OverdueScheduleStatus" в конце кода.

With xlPT

.PivotFields("CalendarDay").Orientation = xlPageField
.PivotFields("FiscalWeekNumber").Orientation = xlPageField
.PivotFields("Manager").Orientation = xlPageField
.PivotFields("Supervisor").Orientation = xlPageField
.PivotFields("SalesID").Orientation = xlPageField

.PivotFields("Employee").Orientation = xlRowField


With .PivotFields("Count_PONumber")
   .Orientation = xlDataField
    .Function = xlSum
    .Position = 1
  .Caption = "Sum of PO_Numbers"
End With

With .PivotFields("OverdueScheduleStatus")
   .Orientation = xlDataField
    .Function = xlSum
    .Position = 1
  .Caption = "Overdue Schedule Status"
End With

.TableStyle2 = "PivotStyleMedium2"
.RowAxisLayout 1
.InGridDropZones = True
.DisplayErrorString = True
End With