Does anyone know how to use VB to create a QueryTable on a blank sheet?

The only way I'm able to create one is by using Data/Import External Data
command and querying a database.

Any ideas?