VBA to concatenate text with other cell based on value

Hi all,

I am using a program that gives output in excel files that needs to be "text to columns" altered. The problem is that the output sometimes needs clean-up before this is possible.

All correct rows will start with the format "0000XX000000" with 0 being numbers and X being letters.
In some instances the last cell contains data that are splitted either into the next column (column B) or to the rows below.
In some instances there will even be blank rows that should be deleted.

I have attached an example.

I need a VBA (as the sheet can include more than 1000 rows) that cleans up the sheet and makes it ready to do "text to columns".

Please let me know if further information is required :-) Thank you very much in advance!

Kr Anders

Hi Dflak,

Thank you VERY much for both subs!! They work perfectly :-) This will definately make everything so much easier.

kr Anders