Here's some code that I got from an old thread.
Code
Sub ThreeToOne()
Dim ColALen As Long, ColBLen As Long, ColCLen As Long
ColALen = Range("A65536").End(xlUp).Row
ColBLen = Range("B65536").End(xlUp).Row
ColCLen = Range("C65536").End(xlUp).Row
If ColALen + ColBLen + ColCLen > 65536 Then
MsgBox "Too Much Data to fit in One column"
Exit Sub
End If
Range(Cells(1, 1), Cells(ColALen, 1)).Copy _
Range(Cells(1, 5), Cells(ColALen, 5))
Range(Cells(1, 2), Cells(ColBLen, 2)).Copy _
Range(Cells(ColALen + 1, 5), Cells(ColALen + ColBLen, 5))
Range(Cells(1, 3), Cells(ColCLen, 3)).Copy _
Range(Cells(ColALen + ColBLen + 1, 5), Cells(ColALen + ColBLen + ColCLen, 5))
End Sub
Display More
I'd like to do something similar, yet different. I have 4 columns on 2 pages that I'd like to combine this time around. I'd like to end up with this as my result.
Sheet1ColumnA Sheet1ColumnB Sheet1ColumnC Sheet1ColumnD
Sheet2ColumnA Sheet2ColumnB Sheet2ColumnC Sheet2ColumnD
Thanks in advance.