Move rows to one column list

[dougexcel]

I have a ton of data and need to move it to one list in a column (Column A) and am a bit of a novice on excel. Below is the example and I have a huge number of columns all with the same number of Rows but different data in each cell! Is there a macro anyone has to perform this task?

Much Thanks

 

[hiker95]

dougexcel,

Welcome to the MrExcel forum.


What version of Excel are you using?

You are posting a picture. This means that if this was a problem where one needed to use your data, anyone trying to help you would have to enter the data manually. That makes no sense and I doubt that you would get any answer.


You will generally get much more help (and faster) in this forum if you can post your small samples (what you have and what you expect to achieve) directly in the forum.

To attach screenshots, see below in my Signature block: Post a screen shot with one of these:

If you are not able to give us screenshots, see below in my Signature block: You can upload your workbook to Box Net

 

[VoG]

Try this

Sub ToA()
Dim LR As Long, LC As Long, j As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
LC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
For j = 2 To LC
    Range(Cells(1, j), Cells(LR, j)).Cut Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1)
Next j
End Sub