try this

Sub stackcolsinone()
For i = 1 To 3
lr = Cells(Rows.Count, i).End(xlUp).row
dlr = Cells(Rows.Count, "d").End(xlUp).row + 1
Range(Cells(1, i), Cells(lr, i)).Copy Cells(dlr, "D")
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"colleen" wrote in message
...
Is there a way to stack columns of data in excel with a simple formula?

I have data in columns A, B, and C. I would like to stack this data and
put
all of the data in column D.

Thanks