I used a very similar approach...

=SUBSTITUTE(SUBSTITUTE(B2,CHAR(10),""),CHAR(13),"|")
because Im not sure which column which bit of info goes into, you can either use text-to-columns, as suggested, or, if you make the column headings identical to what will be in the body of the text, you can use a combination of mid(search(len())) to extract the vairious bits and pieces, based on the headings