vba code to Update Pivot Table source data

I have code to query a database and return data to the "data" sheet.

The number of rows of data returned will vary.

There is a pivot table on the "subtotal" sheet named "PT1" (it is the only PT in the workbook).

Through VBA code, how do I tell the pivot table to update the range of the source data (which is really to update the last row).

(Selecting CTRL-End, goes past where the actual data ends)

Thank you.

See this tip on Debra Dalgleish's site.