查询内容复制保存到新表，请高手指教，谢谢！

roych

给几个建议吧：
1、尽量加上工作表名。否则会因为打开不同的工作表而导致不同的区域被操作，如下：
Range("k5:s65536").Clear
如果打开的是A工作表，那么删除的就是A表的数据；如果打开的是B表，则B表数据被删除。
2、如果没记错的话，copy之后，应该还有一个paste的。写法大概是：
selection.Copy
range("A1").active'建议加上这个，先激活单元格再粘贴。不激活是否能够粘贴则不太清楚。
range("A1").paste
3、如果表格规整写，可以用ADO来完成筛选的工作。但你的表头有合并单元格（最右边那两列）……