Tablas dinámicas

¿Supongo qué con la grabadora incluiste el tema del filtrado no? Creo que la mejor forma es incluir el criterio en alguna celda y luego reemplazas lo que dice la grabadora por esta celda.

Disculpa, pero no entendí.
Cuando estaba utilizando la grabadora de macros utilice el autofiltro, pero al ejecutarla siempre busca el mismo criterio, yo necesito que al aplicar el filtro me pregunte que criterio utilizar. No se como hacerlo si es que hay alguna manera.

Por eso te digo, fíjate el resultado de la grabadora de macros y deberías ver algo como
Selection.AutoFilter Field:=3, Criteria1:="tuValor"
reemplazalo por algo del tipo
Selection.AutoFilter Field:=3, Criteria1:=Range("A1")
o por
Rpta = Input("Ingrese el parámetro a filtrar")
Selection.AutoFilter Field:=3, Criteria1:=Rpta

Que tal Experto,
Mira este es el resultado de la grabadora de macros, no se donde insertar las lineas que me comentas.
CargaDepedidos Macro
' Macro recorded 15/10/2008 by rramirez9
'
' Keyboard Shortcut: Ctrl+p
'
Workbooks.Open Filename:= _
"C:\Documents and Settings\rramirez9\My Documents\Proyecto\Colocado.xls"
Sheets("Detalle Confirmadas").Select
ActiveWorkbook.ShowPivotTableFieldList = True
Range("A5").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Gerencia").Orientation = _
xlHidden
Range("A5").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Territorio").Orientation = _
xlHidden
Range("A5").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Distribuidor").Orientation _
= xlHidden
Range("A5").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Tipo Orden").Orientation = _
xlHidden
Range("A5").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Orden SAP").Orientation = _
xlHidden
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Cliente")
.PivotItems("414025").Visible = False
.PivotItems("414160").Visible = False
End With
Range("D5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy