We can't help you much as the error depend on the contain of the sheet.
.Range("A2").CopyFromRecordset conn.Execute(Sql)
Something go wrong in your code, but you don't understand what go wrong or why.
Use the debugger to see what your code is doing, Open the local variable window to inspect their values, you will probably discover that
Sql
do not contain what it should.
-----
There is a tool that allow you to see what your code is doing, its name is
debugger. It is also a great learning tool because it show you reality and you can see which expectation match reality.
When you don't understand what your code is doing or why it does what it does, the answer is
debugger.
Use the debugger to see what your code is doing. Just set a breakpoint and see your code performing, the debugger allow you to execute lines 1 by 1 and to inspect variables as it execute.
Debugger - Wikipedia, the free encyclopedia[
^]
Debugging in Excel VBA - EASY Excel Macros[
^]
MS Excel 2013: VBA Debugging Introduction[
^]
How to debug Excel VBA - YouTube[
^]
The debugger is here to show you what your code is doing and your task is to compare with what it should do.
There is no magic in the debugger, it don't find bugs, it just help you to. When the code don't do what is expected, you are close to a bug.
PS: I used a second solution to keep things clear as both are not related.