Run and Populate a Query Formula
To create a Macro that runs an existing formula and then populates the results to a target cell, add this method in to your Macro:
Sub ExecuteQueryToCell ()
QAAMacro.ExecuteQueryToCell "A4", "G14")
End Sub
To populate the results to another Worksheet add this method:
Sub ExecuteQueryToCellAnotherWorksheet ()
QAAMacro.ExecuteQueryToCell "SheetName1!A4", "SheetName2!G14")
End Sub