removing blank cells

[kmknowles]

I am not sure if this is possible to do easily but i am trying to remove all of the blanks in a document. if you look at the attached, you can see what i mean. In sheet 1 i have the messy data and sheet 2 i have what i would like the sheet to look like in the end. while this may seem easy to do using an advanced filter, the actual data i have is 150 rows by 150 columns with data spread throughout. Thanks