Macro VBA Copy Paste Across Sheets Runtime '1004'

I need help with a Macro I created to automate some processes.

MSQuery populates in worksheet 1
Data is copied and pasted into first open cell of worksheet 2 when I get to the paste portion I receive: runtime error '1004' "The information cannot be pasted because the Copy area and the aste area are not.....".

I am using this for multiple worksheets

My code is below.

Please Login or Register  to view this content.

[B]Moderator's Edit: Use code tags whenever you post code in posts. To do so, either select your code and click the # button above or type [noparse][code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] after it.[/B]

Your code can be re-written as follows -

Please Login or Register  to view this content.