As Dave pointed out, getting 10 lbs into a 5 lb bag is difficult.
If you can live with multiple bags then (data is in B5:B9)...

Sub InsertComma()
Dim vArr As Variant
vArr = Join(Application.Transpose(Range("B5:B9")), ",")
Range("C5").NumberFormat = "@"
Range("C5").Value = vArr
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"MarkyMark"
wrote in message
Is there away to create a macro to put numbers in one row with comma
between them instead having them in 3000 rows?
From
A
1 5656565656
2 5353535353
3 6262626262
4 3535353535
5 2326235623

To
A
1 "5656565656","5353535353","6262626262","3535353535 ","2326235623"