Расчетное поле разворота не добавляется

Question

Я запускал этот макрос тысячи раз и работал как положено, но вдруг его уже нет:

Sub CrearTablaAgentes()

    Dim i As Byte, arr1, arr2, wsPvT As Worksheet, PvT As PivotTable, LastRow As Long, PvTFld As PivotField

    Call NuevaHoja("TablaProgramados")
    Set wsPvT = wb.Sheets("TablaProgramados")
    With wb.Sheets("Mapa Turnos")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    Set PvT = wb.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Mapa Turnos!R1C1:R" & LastRow & "C55", Version:=xlPivotTableVersion14). _
        CreatePivotTable(TableDestination:=wsPvT.Name & "!R1C1", TableName:="TablaProgramados", DefaultVersion:=xlPivotTableVersion14)

    With PvT
        .ColumnGrand = False
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = False
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlCompactRow
        .PivotCache.RefreshOnFileOpen = False
        .PivotCache.MissingItemsLimit = xlMissingItemsDefault
    End With

    With PvT.PivotFields("Fecha")
        .Orientation = xlRowField
        .Position = 1
    End With
    With PvT.PivotFields("Modo")
        .Orientation = xlRowField
        .Position = 2
    End With
    With PvT.PivotFields("Centro")
        .Orientation = xlRowField
        .Position = 3
    End With
    PvT.RowAxisLayout xlTabularRow
    PvT.RepeatAllLabels xlRepeatLabels

    arr1 = Array("0:00", "0:30", "1:00", "1:30", "2:00", "2:30", "3:00", "3:30", "4:00", "4:30", "5:00", "5:30", "6:00", "6:30", "7:00", "7:30", "8:00", "8:30", "9:00", "9:30", "10:00", "10:30", "11:00", "11:30", "12:00", "12:30", "13:00", "13:30", "14:00", "14:30", "15:00", "15:30", "16:00", "16:30", "17:00", "17:30", "18:00", "18:30", "19:00", "19:30", "20:00", "20:30", "21:00", "21:30", "22:00", "22:30", "23:00", "23:30")
    arr2 = Array("Total", "Mañana", "Tarde", "Noche")
    PvT.ManualUpdate = True
    For i = 0 To 47
        PvT.CalculatedFields.Add STR(i), "=IFERROR('" & CDate(arr1(i)) & "' /30,0)", True
        PvT.PivotFields(STR(i)).Orientation = xlDataField
    Next i

    With PvT.CalculatedFields
        .Add "Noche", "=('0'+'1'+'2'+'3'+'4'+'5'+'6'+'7'+'8'+'9'+'10'+'11'+'12'+'13'+'14'+'15')/2", True
        .Add "Mañana", "=('16'+'17'+'18'+'19'+'20'+'21'+'22'+'23'+'24'+'25'+'26'+'27'+'28'+'29'+'30'+'31')/2", True
        .Add "Tarde", "= ('32'+'33'+'34'+'35'+'36'+'37'+'38'+'39'+'40'+'41'+'42'+'43'+'44'+'45'+'46'+'47')/2", True
        .Add "Total", "='Noche'+'Mañana'+'Tarde'", True
    End With
    For i = 0 To UBound(arr2)
        PvT.PivotFields(arr2(i)).Orientation = xlDataField
    Next i
    PvT.ManualUpdate = False

End Sub

Эта строка: PvT.CalculatedFields.Add STR(i), "=IFERROR('" & CDate(arr1(i)) & "' /30,0)", True ничего не делает, когда необходимо вычислить новое поле. Если я записываю процесс, делая это вручную, я получаю то же самое:

ActiveSheet.PivotTables("TablaProgramados").CalculatedFields.Add "0", _
    "='00:00' /30", True
ActiveSheet.PivotTables("TablaProgramados").PivotFields("0").Orientation = _
    xlDataField

Вот как выглядит сводная таблица:

Но пока работает VBA, он не будет работать и выдаст сообщение об ошибке на следующей строке, пытаясь добавить его в сводную таблицу. Есть мысли?