Move text in range to top, and move empty rows down

I am trying to move text up in a range (A36:G164) when there is empty rows above or in between. Note that the empty rows can not be deleted, the macro needs to move empty rows down and text up. I thought I had got it to work but now I found that it clears and copies the wrong rows.

Here is an example of the problem with the code I am using now:

If I got:
1
empty
3
4
5

The outcome should be:
1
3
4
5

But now it is:
1
3
3
4
(as you can see, 3 is copied and 5 is deleted. The text should just move up).


Does anyone here have an idea how to fix it?


The code I am using is this:

Please Login or Register  to view this content.