sorting rows into a list

[auspcs]

I have a table 10 columns wide, 15 rows high with data in "SOME" of the cells
My problem is that I want to build a list from this table reading from top to bottom. The list can have no blank cells. I can't find a way to do this because some of the cells are blank. Any help would be greatly appreciated

[mrice]

You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell <> "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub

[mrice]

You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell <> "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub

[mrice]

You could try a macro like...


Sub CreateList()
For Each Cell in Cells(1,1).CurrentRegion
If Cell <> "" then Cells(65536,12).end(xlup).offset(1,0) =Cell
Next Cell
End Sub

[auspcs]

Thanks, that worked well, but I wanted to have this make the list automatically when I open the spreadsheet. I thought i could do this with formulas.