Filtro Tabla dinamina

Estimado, espero que me ayuden.

Tengo una tabla dinámica, en la cual tiene un filtro "FECHA" en la cual a travez de una macro, mas abajo se muestra, le cambio el periodo, dado el valor en una celda.

Pero ahora necesito una macro para para seleccionar varios dias, una semana para ser mas preciso. Digamos que tengo 01/01/2012 al 07/01/2012 de A1:G1

SI me puede ayudar con el tema seria excelente. Gracias

Sub PANELCONTROLCOMPRAS()

ActiveSheet.PivotTables("TDCOMPRAS").PivotFields("DIAS"). _

ClearAllFilters

Val = Sheets("CONFIG").Cells(1, "A").Value

ActiveSheet.PivotTables("TDCOMPRAS").PivotFields("DIAS").CurrentPage = _

Val

End sub[/CODE]