Sub Тест()
    Dim PTCache As PivotCache
    Dim PT As PivotTable
    
    Set PTCache = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=ThisWorkbook.Worksheets("Лист1").Range("A1:D9"))

    Set PT = ThisWorkbook.Sheets("Лист1").PivotTables.Add( _
        PivotCache:=PTCache, _
        TableDestination:=ThisWorkbook.Sheets("Лист1").Cells(12, 1), _
        TableName:="СТ")
            
    With PT.PivotFields("Клиент")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    With PT.PivotFields("ТТ")
        .Orientation = xlDataField
        .Function = xlCount
        .Position = 1
    End With
    
    With PT.PivotFields("Выполнили план")
        .Orientation = xlDataField
        'Указываем сумму,
        'но в пользовательском имени выходит "Количество по полю Выполнили план"
        'вместо
        '"Сумма по полю Выполнили план"
        .Function = xlSum
        .Position = 2
    End With
    
    'Меняем имя поля
    PT.PivotFields("Количество по полю Выполнили план").Caption = "Кол-во выполнивших план"
    
    With PT.PivotFields("Отгрузки")
        .Orientation = xlDataField
        .Function = xlSum
        .Position = 3  
    End With
    
End Sub

Set PT(1) = ThisWorkbook.Sheets("Лист1").PivotTables.Add( _
        PivotCache:=PTCache, _
        TableDestination:=ThisWorkbook.Sheets("Лист1").Cells(3, 1), _
        TableName:=PT_UbitokAKB)

' так добавляю вычисляемое поле
' В массиве несколько сводных таблиц. Добавляя вычисляемые меры в первую, появляются и в других
PT(1).CalculatedFields.Add name, "= ...", True
...   
Set PT(4) = ThisWorkbook.Sheets("Лист4").PivotTables.Add( _
        PivotCache:=PTCache, _
        TableDestination:=ThisWorkbook.Sheets("Лист4").Cells(3, 1), _
        TableName:=PT_Detal)

PT(4).RowAxisLayout xlTabularRow
PT(4).HasAutoFormat = False
...
'значения добавляются так
...
    PT(4).AddDataField PT(4).PivotFields("Процент возврата "), "Процент возврата ", xlSum ' Перенаименовываем, в конце пробел
    PT(4).PivotFields("Процент возврата ").Position = 5       
...
'вычисляемые поля добавляются так
...
    PT(4).AddDataField PT(4).PivotFields("Вывод возвраты "), "Вывод возвраты ", xlSum ' Перенаименовываем, в конце пробел
    PT(4).PivotFields("Вывод возвраты ").Position = 10           
...