Ciao GioCC
Premesso che di pivot non ne so quasi nulla prova a mettere nel modulo del foglio "QCRegTratt" questa macro.
Private Sub Worksheet_Activate()
Dim pt As PivotTable
Set pt = Worksheets("DepDDLPvtTbl").PivotTables("MyPivot") ' <===Sostituisci "MyPivot" con il nome della tua pivot
pt.RefreshTable
End Sub
In pratica ogni volta che attivi il foglio in questione dovrebbe essere effettuato l'aggiornamento.