Automatic update of pivot table with error - EXCEL

I find a error in bellow code in depurator the VBA point this:
Pivot_Sheet.PivotTables(PivotName). _ ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)
The code below:

Sub UpdatePivotTableRange()

Dim Data_Sheet As Worksheet
Dim Pivot_Sheet As Worksheet
Dim StartPoint As Range
Dim DataRange As Range
Dim PivotName As String
Dim NewRange As String
Dim LastCol As Long
Dim lastRow As Long
'Set Pivot Table & Source Worksheet
Set Data_Sheet = ThisWorkbook.Worksheets("BASE")
Set Pivot_Sheet = ThisWorkbook.Worksheets("TABELA")
'Enter in Pivot Table Name
PivotName = "Tabela dināmica3"
'Defining Staring Point & Dynamic Range
Data_Sheet.Activate
Set StartPoint = Data_Sheet.Range("A1")
LastCol = StartPoint.End(xlToRight).Column
DownCell = StartPoint.End(xlDown).Row
Set DataRange = Data_Sheet.Range(StartPoint, Cells(DownCell, LastCol))
NewRange = Data_Sheet.Name & "!" & DataRange.Address(ReferenceStyle:=xlR1C1)
'Change Pivot Table Data Source Range Address
Pivot_Sheet.PivotTables(PivotName). _
ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)
'Ensure Pivot Table is Refreshed
Pivot_Sheet.PivotTables(PivotName).RefreshTable
'Complete Message
Pivot_Sheet.Activate
MsgBox "Relatório " & PivotName & " foi atualizado. Aperte OK."

End Sub

erro.jpg

Attachment 711511

here the file

Thanks for your reply!!
I“m newbie in vba....which lines I must change to code works?

"Why not create a dynamic range name for your data, say "MyPTDate""
Do you reffer to this line: "PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)"


Where I put this?
"=OFFSET(BASE!$A$1,0,0,COUNTA(BASE!$A:$A),COUNTA(BASE!$1:$1))"

Thanks a lot for your help!!!!





=OFFSET(BASE!$A$1,0,0,COUNTA(BASE!$A:$A),COUNTA(BASE!$1:$1))