Copy till first non-blank row and paste on first blank row

I'm working on this macro that copies data on sheet1 from A2:AI2 till the last non-blank row in the same range i.e. A:AI and paste it on sheet2 in the first blank row. However, my code keeps picking up A1:AI1 from sheet1 as well and pastes it on sheet2 just before the data that I actually want to paste. Here's my code:

Please Login or Register  to view this content.

Please help

I'm not a VBA guy so maybe I'm missing something but I don''t see where you're moving from sheet11 (the activesheet) to sheet2 in the code before you do the paste.

If you are on Sheet1 and you type "ActiveSheet.Next.Select" it moves to Sheet2...
Can someone please help me to stop this code from copying A1:AI1?