必须运行宏两次才能获得结果

Question

我将报表设置为刷新查询，然后使用已在列开头的公式填充已存在的列，然后刷新引用查询表的数据透视表。

出于某种原因，我必须运行Macro Twice（我以按钮的形式运行）并且我真的不想运行它两次。

Sub Runthrough()
'
' Runthrough Macro
'

'
    ActiveWorkbook.Connections("Query - Purchasereceipt").Refresh
    Range("Purchasereceipt[[Grade]]").FillDown
    Sheets("Pivot Table").PivotTables("PivotTable1").PivotCache.Refresh

End Sub

思想？