Do...Loop failure!

Ok, I thought I was being smart and have produced the following code:

Please Login or Register  to view this content.

But it's kicking out a loop failure, because it says it can't have a loop without a 'Do'. However, I have 2 'Do's and 2 'Loop's so I don't see why it's not working.

The code is supposed to add up the values in (n) number of rows (each 4 rows apart) and paste that value into a cell on a different sheet, then repeat, offset down one row, then repeat on the original row series but offset one across... etc and so on, until it runs out of values to add and paste.

Any help would be much appreciated...

fd.