Sub PT_Summary()
Dim PT As PivotTable
Dim FinalRow As Integer
Dim FinalCol As Integer
Dim WSD As Worksheet
Dim WSA As Worksheet
Dim PTCache As PivotCache
Dim PRange As Range

Set WSD = Worksheets("Summary")
Set WSA = Worksheets("Bonus")

For Each PT In WSD.PivotTables
    PT.TableRange2.Clear
Next PT

FinalRow = WSA.Cells(Application.Rows.Count, 1).End(xlUp).Row
FinalCol = WSA.Cells(2, Application.Columns.Count).End(xlToLeft).Column
Set PRange = WSA.Cells(1, 1).Resize(FinalRow, FinalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address)

Set PT = PTCache.CreatePivotTable(WSD.Cells(11, 1), "PivotTable1")

PT.ManualUpdate = True
PT.AddFields RowFields:="Итог"

With PT.PivotFields("Attempts")
.Orientation = xlDataField
.Function = xlSum
.Postion = 1
End With

With PT
.ColumnFields = False
.RowGrand = False
.NullString = "0"
End With

PT.ManualUpdate = False
PT.ManualUpdate = True

End Sub

Set PT = PTCache.CreatePivotTable(WSD.Cells(11, 1), "PivotTable1")