VBA Code that can split the contents of a cell into two cells? (Spreadsheet Attached)

All,
First of all I want to say Thankyou to everyone on this board that keeps helping me. The people in this forum really know their stuff- it's amazing.

Now I have another question. I have a column that will always have a 5 digit number; the first 2 numbers represent a marketplace, and the last 3 numbers represent a location. I'm trying to build/find something that can split this 5 digit number into two cell (in separate columns) separated as listed above. I've attached a spreadsheet with a before and after, hopefully that will help explain better?

Thanks in advance,

Chad

That worked awesome. I have one more question though. I put the following code into the Macro I'm building based on it:

Please Login or Register  to view this content.

However- what do you think would be the best way to modify the code so that it will run until it reached the last row? (and not keep looping and making the Macro slower).

Thanks again, what you provided already was a huge help.

Originally Posted by Chad Bateman

However- what do you think would be the best way to modify the code so that it will run until it reached the last row? (and not keep looping and making the Macro slower).

Try

Please Login or Register  to view this content.

That's perfect. Thanks Jindon.

No problem and thanks for the rep.

If this is a one time operation, just TextToColumn with fixed width should do like the code does...