This example refreshes all query tables on worksheet one.
For Each qt in Worksheets(1).QueryTables
qt.Refresh
Next
This example sets query table one so that formulas to the right of it are automatically updated whenever it’s refreshed.
Sheets("sheet1").QueryTables(1).FillAdjacentFormulas = True