VBA To Split A Group Or Set Of Data In Rows In To Columns

[p45cal]

I've just realised that I left 2 debug lines in which don't need to be there; they are the 2 lines:
Application.Goto Destn
Delete them.