利用VBA录制宏对数据透视表进行筛选栏勾选

这不是真的

各位大佬求助！
新手一枚，自己折腾好几个下午还是没个影。。。
现在需要在数据透视表的筛选栏对前一天所在月份的数据进行筛选，自己用CurrentPage完成了单项的成功勾选
但是。。如果出现这个月没数据，就报错了，，
小弟的构思是同时勾选当前月份和（空白）选项，这样有数据会正常显示数量，没数据会勾选空白成功显示0条数据
但是CurrentPage好像实现不了，自个儿各种搜试了白天，有点懵，还是不知道怎么写
切片器不顶用，实际操作的时候好多这种的表，筛选项也不一样，挨个点太难了，，
求助求助，
如果可以的话，下面的包含名字显示才显示的语句也帮忙看下，好像也会错，，
主要是第一个，附件如下，感谢感谢！！！！

这不是真的

Private Sub Worksheet_Activate()
Dim X As Date
Dim Y As String
Dim i, n
X = Date - 1
Y = Month(X)
    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
    ActiveSheet.PivotTables("数据透视表1").PivotFields("月份").ClearAllFilters
    ActiveSheet.PivotTables("数据透视表1").PivotFields("月份").CurrentPage = Y
   主要这一块

这不是真的

跪求支援~~