Problema con las tablas dinámicas

Un saludo a toda la red y posibles escuchas,

Tengo un problema con una tabla dinámica. El caso es que tengo una tabla
para comprobar una serie de gastos y una columna de la tabla es de
"conceptos". El caso es que si se introduce un concepto erroneo, se
actualiza la tabla, se ve el error y se corrige. La cuestion es que al
actualizar la tabla de nuevo, al pulsar la flecha que desplega los
conceptos para marcarlos o no, aparece el concepto erroneo, a pesar de
haberlo borrado.

La cuestion es que si trabajas mucho con la tabla, pueden existir muchos
errores que se van acumulando en la lista desplegable.

¿Sabe alguien alguna posibilidad, para que al actualizar la tabla, se
"olvide" de los que hubo en algún momento, y solo refleje los que existen
en ese instante?, todo esto claro, sin tener que crear la tabla de nuevo,
que siempre es la ultima opcion.

Muchas gracias por adelantado.

VanSaak

Sub Borrar_PivotItems()
Dim wksH As Worksheet
Dim ptP As PivotTable
Dim pfP As PivotField
Dim piP As PivotItem
Dim i As Integer

On Error Resume Next
For i = 1 To 2
For Each wksH In ActiveWorkbook.Worksheets
For Each ptP In wksH.PivotTables
For Each pfP In ptP.PivotFields
For Each piP In pfP.PivotItems
piP.Delete
Next
Next
ptP.RefreshTable
Next
Next
Next
On Error GoTo 0 'Por si hubiera m s c¢digo despues

Set piP = Nothing
Set pfP = Nothing
Set ptP = Nothing
Set wksH = Nothing
End Sub