como Filtrar tabla dinamica por fecha en dos celdas

Hola a todos y muchas gracias de antemano.

mi problema es el siguiente:

Quiero fitlrar una tabla dinamica por fechas en funcion del valor que contienen dos celdas:

Adjunto un fichero como ejemplo

El campo a filtrar se llama Dia2 y las celdas b1 y b2.

Esto es lo que he intentado:

Sub filtrarfecha()

Sheets("td").Select

ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").ClearAllFilters

ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh

a = Range("b2").Value

b = Range("b3").Value

ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Dia2").PivotFilters.Add _

Type:=xlDateBetween, Value1:="a", Value2:="b"

End Sub

Buscando por google he encontrado el siguiente macro:Excélpatas: Filtrar por rango de fechas en una tabla dinámica

El cual no soy capaz de que funcione para mi caso.

Adjunto un ejemplo aki:

https://www.dropbox.com/s/5outz4x0969kqv5/filtrarporfechas.xlsx

Gracias a todos por vuestro tiempo

PD: a ver si consigo que funcione una de las 2 macros, un saludo

filtrarporfechas.rar