Citar elementos en Tabla Dinámica

tardes/dias

Estoy haciendo una macro que elimine un elemento de una tabla dinámica y lo reemplace por otro según la elección del usuario en otra hoja, ya tengo resuelto que llame ese elemento, pero NO he podido decirle a VBA que elimine la selección previa y ahora ponga la que el usuario ha seleccionado: tengo esto:

Sub TestTarget()

' TestTarget Macro
NuevoTarget = Worksheets("DASHBOARD").Range("D3").Value
ActiveSheet.PivotTables(""TablaDinamica1").CubeFields( _
"[Measures].[Suma de Values").Orientation = xlHidden
ActiveSheet.PivotTables("TablaDinamica1").AddDataField ActiveSheet. _
PivotTables(""TablaDinamica1").CubeFields( _
"[Measures].[Suma de NuevoTarget]"), "Suma de NuevoTarget"
End Sub

Debe ser algo simple, pero no lo veo!

¿Cómo me pueden ayudar?

Cordial saludo!