Visual Basic - Tabla dinámica: filtrar los pivotitems menor que una variable de fecha

Hola a todos

Tengo una tabla dinámica en la que tengo el filtro de dia el cual viene de la funcion =DIA() y busco poder filtrarla desde visual para los dias menores o iguales que el dia presente.

Puedo filtrar la información pero me sale el error 13 no coinciden los tipos


Sub TablaZona2()
Dim pvtItm1 As PivotItem
Dim fecha As Integer
Dim PTable1 As PivotTable



Set PTable1 = ActiveSheet.PivotTables("TablaZona1")

fecha = Day(Now)


For Each pvtItm1 In PTable1.PivotFields("DIA").PivotItems

If pvtItm1.Value < fecha Then
pvtItm1.Visible = True
Else
pvtItm1.Visible = False
End If

Next


End Sub



Me podrian ayudar, mil gracias