Try this - output is in column F

Sub newline()
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For irow = 1 To lastrow
mystr = ""
For icol = 1 To 5
mystr = mystr + Cells(irow, icol) + Chr(10)
Next icol
Cells(irow, "F") = mystr
Next irow
End Sub

"Archangel" wrote:

I have a large spread sheet that I inherited... I need to merge five columns
of text data into one column.
Example:

Before...
A B C D E
The Quick Brown Fox Jumped

After...
A
The
Quick
Brown
Fox
Jumped

Help!