Macro para poner dos criterios a un mismo filtro de tabla dinamica desde celdas fuera de la tabla

[hdgz22x]

Lo que necesite es que desde dos celdas fuera de una tabla dinamica darle los criterios de filtrado a la tabla dinamica.

He buscado en los foros y solo he encontrado como ponerle un criterio desde una celda externa, la situacion es que como minimo necesito dos criterios.

He sabido adaptar macros a mis necesidades, pero realmente no se como programarlas y lo hago por intuicion logica y esta por mas que intente no logra hacer que se active.

En archivo adjunto esta la macro que contiene en la instruccion para td1 fue la que modifique para que tomara los dos criterios pero no funciona, la instruccion para las otras dos tablas si funcionan parte de la macro tiene la modificacion no funciona. Y es que lo que necesito es que en dos celdas externar meter los criterios del filtro para tres tablas dinamicas.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address <> "$A$2" Then Exit Sub

Application.ScreenUpdating = False

'Actualiza las tablas

ActiveSheet.PivotTables("TD1").PivotCache.Refresh

'Actualiza el año de todas las tablas

añoN = Hoja4.Range("A2")

año2 = Hoja4.Range("b2")

ActiveSheet.PivotTables("TD1").PivotFields("AÑO").CurrentPage = "(A11)"

With ActiveSheet.PivotTables("TD1").PivotFields("AÑO")

.PivotItems(añoN).Visible = True

.PivotItems(año2).Visible = True

End With

ActiveSheet.PivotTables("TD2").PivotFields("Año").CurrentPage = _

añoN

ActiveSheet.PivotTables("TD3").PivotFields("Año").CurrentPage = _

añoN

Application.ScreenUpdating = True

End Sub

Tablas dinamicas sincronizadas3.xls