Public Function ControlSum() As Boolean

Dim WSA As Worksheet
Dim wsd As Worksheet
Dim PTCache As PivotCache
Dim pt As PivotTable
Dim FinalRow As Integer
Dim FinalColumn As Integer

Set WSA = Worksheets("AG_region")
Set wsd = Worksheets("AG_direction")

For Each pt In wsd.PivotTables
    pt.TableRange2.Clear
Next pt

FinalRow = WSA.Cells(Application.Rows.Count, 1).End(xlUp).row
FinalColumn = WSA.Cells(2, Application.Columns.Count).End(xlToLeft).Column
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
WSA.Cells(1, 1).Resize(FinalRow, FinalColumn)).CreatePivotTable _
TableDestination:=wsd.Cells(1, 1), TableName:="PivTab1"