MErge everything all colums into one

I have a worksheet with many columns. I want to take the content of all
the columns and put it in just one column , lets say A. How can i go
about doing this?

I'm fairly new at this and it's a steep learning curve - there are no
doubt more elegent ways to do this.. but if you have a limited number
of columns that you need to work with and you know the columns in
advance, this will do the trick...

=======================================================
Sub merge()
Dim somestring As String
Dim somestring2 As String
Dim somestring3 As String
Dim mergedstring As String

somestring = Range("b1").Value
somestring2 = Range("c1").Value
somestring3 = Range("d1").Value

mergedstring = somestring & " " & somestring2 & " " & somestring3
Range("a1").Value = mergedstring

End Sub

=======================================================

HTH

Gary