Sub put4columnsinto1()
dim i as integer
dim dlr as long
dim lr as long

For i = 2 To 4
dlr = Cells(Rows.Count, 1).End(xlUp).Row + 1
lr = Cells(Rows.Count, i).End(xlUp).Row
Cells(1, i).Resize(lr).Copy Cells(dlr, 1)
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Canon" wrote in message
...
Excel 2007
I have a large spreadsheet that was exported from a accounting file.
There
are four columns with addresses, (add 1, add 2...), I would like to be
able
to take this information and move it into one column without re-doing all
the
information. If I can do this, I will be able to wrap the text to fit on
the
same page.