Code is a little out of my league.
You could use the formulas I posted and enter them in the columns you wish
to use, then copy them down the columns.
This does however, leave you with formulas returning data, and not the
actual data itself.
You can then remove the formulas and leave the data behind by copying the
columns to themselves, and then "Paste Special", and check "Values".
Not exactly a "one shot" procedure.
You can also use TTC to copy to non-contiguous columns, but again, not a
"one shot" deal.
You'll have to do it 3 times, one for each column.
After you place the break lines and hit <Next>,
The first separation (column) is selected by default.
Hold down <Shift> and click in the second separation so that both are
selected.
Then click in "Do Not Import".
You'll see the headers change from General to Skip.
Now, enter your first target column in the "Destination" box, then <Finish>.
You'll need to do this twice again for the other 2 separations, skipping the
first and third, and then the last two.
If you find both of these procedures unappealing, you can post to the
programming group, and see if they can help you.