How to move one Column's data to other Columns...

Hello to all,
I want to know that If you have data in only one column "A", and the column is 300 rows in length, I want to print this (when my paper size is set to A4). What I want is that after 40th Row all entries of Column "A" should move to Column "B" and same in Column "B" after 40th Row all entries of Column "B" should move to Column "C" and so......
Sorry If I couldn't explain it well. I am also attaching my Before and After Excel files.
(Actually I posted this question in Excel General forum too but Couldn't get any answer so I am trying here in Excel programming forum and hope there must be masters to help me)

If someone could help I'll be thankful.
BYE.

Originally Posted by arlu1201

Try this code

Please Login or Register  to view this content.

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button.

Hello arlu1201,
Thanks for your help. This is working fine but it is giving answer in "sheet2". Is it possible to have answer in same sheet and one more request, if I have a column of "Serial Numbers" before and I want to move now both columns at same time from 40th row. Please try to make code for two columns, I'll be thankful. Hope you can do that too. Take care.

Thanks again.

Originally Posted by arlu1201

Try this revised code

Please Login or Register  to view this content.

Hello arlu1201,
At last I got my answer. Yes now this is working perfect. Thanks for your time and help.

And I apologize for re-posting this same question, actually I should've posted it here first time rather than asking it on General Forum. I knew from here I could get help from Excel Programmers.
Thanks again.
T.C.