将某些列从筛选列表复制到另一个工作表

I've been working on this project for a while and cannot get the debugger to run clean. If anyone can get me going in the right direction I would be so thankful!I've been working on this project for a while a