Please help with VB in calculation

Option Explicit

Sub PADDPivotTables()
    Dim PTCache As PivotCache
    Dim PT As PivotTable
    Dim SummarySheet As Worksheet
    Dim ItemName As String
    Dim Row As Integer, i As Integer
    
    Application.ScreenUpdating = False
    
'   Delete Summary sheet if it exists
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Summary").Delete
    On Error GoTo 0
    
'   Add Summary sheet
    Set SummarySheet = Worksheets.Add
    ActiveSheet.Name = "Summary"
    
'   Create Pivot Cache
    Set PTCache = ActiveWorkbook.PivotCaches.Add( _
      SourceType:=xlDatabase, _
      SourceData:=Sheets("PADD1").Range("A1"). _
        CurrentRegion.Address)
    
    Row = 1
    For i = 1 To 14
        ItemName = Sheets("PADD1").Cells(1, i + 2)
'       Create pivot table
        Set PT = PTCache.CreatePivotTable _
            (TableDestination:=SummarySheet.Cells(Row, 1), _
             TableName:=ItemName)
        Row = Row + 11
        
'       Add the fields
        With PT.PivotFields(ItemName)
            .Orientation = xlDataField
            .Name = "week"
            .Calculation = xldivid
        
        End With
    
        With PT.PivotFields(ItemName)
            .Orientation = xlDataField
            .Name = "Pct"
            .Calculation = xlPercentOfTotal
        End With
    
        PT.AddFields RowFields:=Array(ItemName, "Data")
        PT.PivotFields("Unit Type").Orientation = xlColumnField
        PT.PivotFields("Type").Orientation = xlColumnField
     Next i
    
'   Adjust column widths
    Columns("A:G").EntireColumn.AutoFit
End Sub