Tabla dinámica macro

Helloses, me gustaría hacer una macro para que a partir de una tabla dinámica me vaya seleccionando los diferentes filtros. Por ejemplo, supongamos que tengo 5 campos en el filtro, uno coche, el otro moto, el otro camión, el otro autobús, el otro bicicleta. Lo que yo me quiero ahorrar es ir seleccionando los filtros. Quiero que me vaya seleccionando moto y me copie la tabla en una hoja. Esto último lo sé hacer, simplemente grabé la macro, lo que tengo ni idea de hacer es lo otro porque claro grabando la macro pues me aparece el siguiente código ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Descripción"). _
        CurrentPage = "moto"
¿Pero cuál es el problema? Muy sencillo, que tengo como unos 100 filtros y claro me ahorraría bastante trabajo saber el código porque si tengo que hacerlo uno a uno, me da el 2011. A ver si alguien me dice si se puede o qué. Hasta luego.