sorting rows into a list

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