Move data from Column A-E or B-F to columns G-K

HI,
I want to move couple of data from columns A-E or B-F to G-K. How do I do this. I have 27000 records in the excel and the requirement is : See the sample excel attached. In the attached excel the correct format for sub rows is Row 3. I need to move Row 5-13 to Columns G-K,Row 15 to columns G-K,Row 17-22 to columns G-K and so on. The row with the number which is 10digits will not move.(Like Row 1,4,14,16). Is there any macro for this type of issues or what is the best way to deal as I have 27000 reocords similarly. Good thing is I have constant columns.

Thanks
NewBie

Hi netnewbie,
Please try the sample in attached for now and wait for better code from experts:

Regards,
tt3

Maybe:

Please Login or Register  to view this content.

Hi,
When I ran your macro yes it copies but I also want to delete the old ones after moving. Same as cut paste. I want to delete the data from column A to E,F after the data is moved to columns G-K.

That's what happened when I ran it on your sample.

Another option.
The code will run slow on large data, but because of the cut method, it is unavoidable.

Originally Posted by netnewbie

Hi,
When I ran your macro yes it copies but I also want to delete the old ones after moving. Same as cut paste. I want to delete the data from column A to E,F after the data is moved to columns G-K.

Oh now I see. I think you were replying to the code in Post#2.

I tried your macro on the real file but it did not work. It says subscript out of range. It runs on the small file. What is the difference. Please see the attached real big file.

3 People have offered you suggestions. Who's macro are you referring too?

Try:

Please Login or Register  to view this content.

Thanks John. I ran your code and it does cut and paste all the data. Only problem its removing the data for the rows which has CaseNumber. Can you run it and see for yourself.For the ones which has CaseNumber it should not delete or move.

Do you mean?

Please Login or Register  to view this content.

Sub cutme() did not work. It actually deleted all the rows and did not paste. Also if it has casenumber it had overwritten the values. Actually if it has casenumber it should not do anything.
If Len(cell) < 10 And Len(cell) Then
I understood if Len < 10 do something but when it says and Len(cell) what is the purpose of it.

Okay, try.

Please Login or Register  to view this content.

I do not know which sheet you are referring to, but the code correctly cuts if column B is not a number. The code is slow anyway with 4k rows, so I would not imagine how long will take to run with 27k. I am out of the loop.

Great! It works. Thanks all of you for your help. John Davis code works perfect.

You're welcome. Glad to help out, and thanks for the feedback. Please comply with Forum Rule No. 9 and mark this thread as solved.

Hi John,
I had another similar issue. Can you help me please. Please look at the thread "Cut the data from column A to K and past it in columns B to L". I highly appretiate your help.