Sorry to take up space here. I looked at a formula I had for merging data in cells and figured out how to do it in the vba.
this one will put a space
Sub concateColA()
Dim start As Long
Dim lastRow As Long
start = 4
lastRow = [A65536].End(xlUp).Row
Do
Range("F" & start).Value = _
Range("G" & start).Value & " " & Range("H" & start).Value & " " & _
Range("I" & start).Value & " " & Range("J" & start).Value & " " & _
Range("K" & start).Value & " " & Range("L" & start).Value
start = start + 1
Loop Until start > lastRow
End Sub
if you use this code in the line it will put a dash between the merged data:
Range("G" & start).Value & "-" & Range("H" & start).Value & "-" & _