Macro for Creating New Columns and Transferring Text

[macrocodehelp1]

Hello!

I'm trying to write a macro to create five new columns (after column F), give the headers specific names, and transfer text after line breaks from column F.

For example, a cell in column F may read:

John Smith
Jane Doe
George Parker
Michael Scott

I would want John Smith to remain in the cell, Jane Doe (after the line break) to move to the next, newly created column, George Parker to move to the new column after Jane Doe, etc.

Also, less important: is it possible to have a specific name always go to a specified column? So, for example, could I have Jane Doe automatically move to the third new column, even if she's the second name in the cell?

Thank you in advance!

 

[Fluff]

How about

Sub SplitData()
   Dim Cl As Range
   Range("G1:K1").Value = Array("G", "H", "I", "J", "K")
   For Each Cl In Range("F2", Range("F" & Rows.Count).End(xlUp))
      Cl.Resize(, 6).Value = Split(Cl, Chr(10))
   Next Cl
   Range("G:K").SpecialCells(xlConstants, xlErrors).ClearContents
End Sub