Get rid of all empty cells in a column without deleting

[excelhatesme]

I'm trying to fix a macro that find all emty cells in a collumn and moves the value of the cell under up so that the spaces dissapear without moving any cells since I have formulas dependent on the cell references.

This is my code which delete the empty cells and shift up:

Please Login or Register  to view this content.

But is it any way to instead just move the values please describe

Another way to solve the problem using my delete code could be this:
http://www.excelforum.com/excel-gene...ml#post2554682

[arthurbr]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here