Re: Combining several columns into one list
Sure, althouh this does assume that all of your columns start on the same row, and that all of your columns are adjacent, with no blanks....
Code
Sub CopyToA()
Do while activecell <> ""
Range(ActiveCell, ActiveCell.End(xlDown)).Cut Destination:=Range("a65535").End(xlUp).Offset(1, 0)
Activecell.Offset(0,1).Select
Loop
End Sub
Just kick it off in your first column, and it will work across until it hits a blank cell
HTH
Simply