Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1").NumberFormat = "@"
For i = iLastRow To 2 Step -1
Range("B1").Value = "," & Cells(i, "A").Value & Range("B1").Value
Next i
Range("B1").Value = Range("A1").Value & Range("B1").Value
End Sub

--
HTH

Bob Phillips

"Raju Boine." wrote in message
...
I have a column in which I got some values. Now I want to get those values
in
to a cell with comma seperated.

Eg:
In column A
123
234
345
456

In Cell B2 I want 123, 234, 345, 456. Can some please help me.