Collecting Data Within a Range

I have an arrangement of data scattered throughout multiple rows and columns, most of which are blank that I need to arrange in one column, to sort and manipulate later. Aside from sorting each column to remove the blank cells and moving it to one column, is there an easy way to do this?

Use this macro

Sub Test()
For Each Cell In Selection
    If Cell <> "" Then Cells(65536, 256).End(xlUp).Offset(1, 0) = Cell
Next Cell
End Sub

Select the range covering your total data set. The data will appear in column IV.

That sir, is brilliant! Worked like a charm. Thank you so much for your help. That is a very useful macro.