有关数据透视表代码刷新问题

ccq000000

我对数据源通过“现有连接”做了数据透视表，现有连接的语句是：select *,year(销售日期) as 年,iif(month(销售日期)>6,"下半年","上半年") as 上下半年,format(销售日期,"第q季度") as 季度 from [数据源$]
如果用手动刷新在删除数据源数据时数透表会有“空白”行，当采用vba刷新时会出错。现代码已停用，刷新的代码是：
Private Sub Worksheet_Activate()
   'ActiveSheet.PivotTables("xx").PivotCache.Refresh
End Sub
请求帮助解决是祷！