Sub CombineValues()
'written by Barrie Davidson
Dim CombineRange As Range, c As Range
Dim NewVal As String
Dim NewValRange As Range
Set CombineRange = Application.InputBox("Select range to combine", , , , , , , 8)
For Each c In CombineRange
NewVal = NewVal & ", " & c
Next c
NewVal = Right(NewVal, Len(NewVal) - 2)
Set NewValRange = Application.InputBox("Select range to paste combined value", , , , , , , 8)
NewValRange.Cells(1, 1) = NewVal
End Sub