Do while with worksheetfunction.sum not working

Hey there!

Need a bit of assistance with this one, so hopefully someone can help me out.

I have a number of rows for which I, at the end of every second row, need a sum function (summing number in the row below).
The number of columns, which are to be summed, varies, why I set a variable to the number of columns that are to be summed.
Also, the number of rows, for which I need the sum function applied, varies. I tried to get around it with a Do while loop, but I get an error message on the worksheetfunction. Also at the very end of my loop, I need a total sum that sums together all the loop-generated sums. Not sure if I can somehow know where the loop ends, and thereby where this total sum will go?

Please take a look at the attachment, cause it explains it better i hope The code I got so far is below. Another problem is, how do I hide the row below the activerow as well as the activerow, when the condition in the IF statement is met AND move the activecell in order to continue the loop. Thanks again.

Please Login or Register  to view this content.

Thanks in advance!

Try this instead. It's more straightforward and you can see formulas in the resulting cells so you can verify the data range is properly defined for each value.

Please Login or Register  to view this content.

The only caveat here is that column C is expected to be empty below the data set, your notes on your sheet seem to indicate this is the case.

The formula I gave you (in my testing at least) does not put Sums in the rows without text in column C. Yours does?

Working properly, the SUM at the bottom should be fine.