to see what was copied find the line
Sheets("Query").Delete
put a ' in front
'Sheets("Query").Delete
this will stop the sheet being deleted run the code then see whats on it