[COLOR=navy]Sub[/COLOR] MG27Jan16
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, Sp [COLOR=navy]As[/COLOR] Variant
[COLOR=navy]Set[/COLOR] Rng = Range("A1", Range("A" & Rows.Count).End(xlUp))
Sp = Split(Join(Application.Transpose(Rng), ","), ",")
Range("B1").Resize(UBound(Sp) + 1).Value = Application.Transpose(Sp)
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]