VBA - Concatenate columns with delimiter

[snb]

or a simple Excel formula:

=SUBSTITUTE(TRIM(B1 &" " &C1 & " " & D1& " " & E1& " " &F1& " " &G1);" ";">")