Hi All,
i have come across this VBA from someone elses post, and it is very near what i am after.
Sub JoinAndMerge2()
Const Delimiter = " "
On Error Resume Next
With Selection
If Selection.Rows.Count > 1 Then
.Item(1).Value = Join(WorksheetFunction.Transpose(Selection), Delimiter)...