copy the content from below

Hi Friends,

Wish you all a Merry Christmas and a Prosperous New Year.

I was wondering if somebody could help me with a VBA code that will copy the content from the lower cell and paste in the upper cell and then delete the content of the below cell. Means I select few cells vertically(of which the top cell is always empty), and run the code and the code search that region and transfers the content in that region only.

I am attaching a example sheet for your reference.

Thanks for all your help.

Best regards,
me

Perfect ! both works like a charm ! thanks friends.
Best regards,
me