Solved: add - when merge data on cell of column

[parscon]

I need a help , I have this code .Now this code will merge all of data on column G to column M1 and my problem when i merge data on column M1 i want to add - between each data . that mean i want :

data1-dat2-data3

Now this code make

data1data2data2

 
Dim v As Variant
Dim s As String
Dim i As Long

' Fetch from sheet
v = Range("G1:G2000").Value
' Concatenate into a single string
s = ""
For i = LBound(v, 1) To UBound(v, 1)
    s = s & v(i, 1)
Next i
' Put back on sheet
Range("M1").Value = s
End With