Como puedo asignar una variable a un pivot field

Tengo una macro para crear una tabla dinamica pero no he logrado asignar una variable a un pivot field. Lo que necesito es que al cambiar el valor de una celda me lo haga tambien en el pivot field de la tabla dinamica. ¿Me pueden ayudar?

El codigo que tengo es

VARIDIOMA = Sheets("FORM").Range("CTIDIOMA")
CONTABUNO = Sheets("ACCOUNT").Range("CTUNO")

Sheets("DINAM").Visible = True
Sheets("ACCOUNT").Visible = xlVeryHidden
Sheets("DINAM").Select
Application.Goto reference:="R2C1"
ActiveSheet.PivotTables("Tabla dinámica2").ClearTable
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("Tabla dinámica2").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica2").PivotFields(CONTABUNO), "Cuenta de " & CONTABUNO, xlCount
With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields( _
"Cuenta de " & CONTABUNO)
.Caption = VARIDIOMA & CONTABUNO
.Function = xlSum
End With