Insert lines between rows based on numbered string headers.

Can somone help me figure out how to use a macro to loop through data in column 'B' and do the following:

- Data in column B will be all strings. The strings mostly start with a number such as 1.0, 1.1, 2.0, 2.1...
- Insert blank cells between the lines with the first digit of the number. (1.0, 1.1, 1.2, <space>, 2.0, 2.1, <space>, 3.0, 3.1, 3.2, <space>, 4.0, <space>, 5.0 etc...)
- Some of the cells contain what I call 'runover text'. These will have no number at the beginning such as to signify that the text is a continuation of the cell above.
- I would like to maintain the (by 10) numbering in column 'A'

Original:

spaces_old.xls

becomes:

spaces_new.xls

Thank you for your time. Any help appreciated

Try this:-
Results in columns "C : D" based on "A : B"

Please Login or Register  to view this content.

Regards Mick

Thank you.

After testing it wouldn't work on my actual data (subscript out of range), but it worked on the test sheet perfectly. After a bit of trial and error, I figured out that the problem is that my original data already has a few blank cells in in column b. If I eliminate the pre-existing blank cells, then it works just fine. I probably need something like 'if not c is nothing in there somewhere? aka 'nothing to see here. move along now...'