Codigo VBA para copiar el total de una tabla dinamica y pegarlo como valores

Estoy tratando de copiar el total que muestra una tabla dinamica y pegarlo como valores en otra celda pero el codigo que estoy utilizando no funciona; "suma de total" es el nombre de la celda que aparece cuando posiciono el cursor sobre el total, creo que alli podria estar el error pero no se como solucionarlo. ¿Podrian por favor ayudarme con sus sugerencias?

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("REPORTEVENTAS").PivotCache.Refresh
End Sub
'Sub copiartotal()
         'Selection.Copy
'         Range("Suma de TOTAL").Copy
'         Range("D10").PasteSpecial xlPasteValues
'          Application.CutCopyMode = False
'End Sub