Run and populate a query formula
          A macro can run an existing formula and then populate the results to a target cell.
         
         Add this method 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