Query table, retain the column names on refresh

Hi,

Here's my recorded macro:

Please Login or Register  to view this content.

The line in bold clears excess rows including the column names.
I know I can modify the code to reenter these every time a refresh is completed
but I am wondering if there is a more elegant solution to this problem.
I tried hiding/unhiding the first row but it didn't work, all names were gone after refresh.
I also tried to check /uncheck different options in data range properties window but it didn't solve the problem.