Insering newline at every space

Originally Posted by JOHN H. DAVIS

Does this help?

Sub mandukes()
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Copy
Cells(3, 1).PasteSpecial Transpose:=True
Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count)).Delete
End Sub

assumes original data is on row 2.

Not working