Add contiguous cells, and put result in the top cell

Hi,
I was wondering if there was a formula or VBA code to add all contiguous numbers and to post the answer to the topmost cell upto that point and delete the other cells.

For example: The column of the left should be converted into the column on the right.

1 3
1
1

1 2
1

1 1

1 1

1 2
1

1 7
1
1
1
1
1

1 1

1 1

1 2
1

Maybe:

Please Login or Register  to view this content.

In your sample I think 7 is wrong?

Hey mate,
Thanks for that but it doesn't seem to be working, I should have added an example of what I was working with, would you mind looking at the attachment? The concerned columns are R,S and U,V

P.S Yes that should have been 6, sorry my bad.

Thanks mate,
It seems to work for R and S but not for the other two, am I doing something wrong? Do I need to select the columns in a different way?