How do you preventing a querytable from being deleted when you clear the contents of the querytable?

Question

I use the following: Sheets("Sheet1").Select Cells.Select Selection.ClearContents to clear the contents of a querytable, but the