在Excel中刷新查询后创建列，然后添加公式

Question

所以我有这个VBA代码，我试图拼凑起来......

Sub GradeColumn()

Sheets("Query").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Range("K2").Select
Range("K2").FormulaR1C1 = "Difference in date"
Range("K3").Select
ActiveCell.FormulaR1C1 = "=[Posting Date]-[Expected Receipt Date]"
Range("L2").Select
ActiveCell.FormulaR1C1 = "Grade"
Range("L3").Select
ActiveCell.FormulaLocal = "=IF([Difference in date]<2,""A"",IF([Difference in date]=2,""B"",IF([Difference in date]=3,""C"",IF([Difference in date]=4,""D"",""F"")))"
Sheets("Pivot Table").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh

End Sub

我想要它做的是，刷新查询表，在查询表中创建两个列，其中一个名称为日期差异，列中有一个公式，另一个名为Grade，该列中有一个评分标度公式。

我一直在

  

应用程序定义或对象定义的错误

在评分等级公式中。任何帮助，将不胜感激。谢谢！