How can i update Pivot tables in excel dynamically?

Question

Option Explicit
Sub DPTR()

 With Application
     .Calculation = xlCalculationManual
     .EnableEvents = False
     .ScreenUpdating = False
 End With



 Dim start