Filtrar en Tabla Dinamica

Como puedo filtrar con codigo en una tabla dinamica que me muestre unicamente los diez valores mas altos
de un campo que se encuentra en la seccion "Rotulos de Columna" es numerico.
... que mi tabla dinamica tenga unicamente 10 columnas siempre y las 10 columnas con los valores mas altos.
Estos valores son numeros de semanas, y quiero mostrar siempre las ultimas diez semanas...

hola, !

Como puedo filtrar con codigo en una tabla dinamica que me muestre
unicamente los diez valores mas altos
de un campo que se encuentra en la seccion "Rotulos de Columna" es
numerico.
... que mi tabla dinamica tenga unicamente 10 columnas siempre y las 10
columnas con los valores mas altos.
Estos valores son numeros de semanas, y quiero mostrar siempre las
ultimas diez semanas...

prueba con una macro +/- como la siguiente (corrige donde mis supuestos no
correspondan a tu realidad)

Sub Solo_10()
Dim n As Integer
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1).PivotFields("semana")
For n = 1 To .PivotItems.Count - 10
.PivotItems(n).Visible = False
Next
End With
End Sub

saludos,
hector.