adding sequential set of cells excel vba

[jeffersonaraujo]

Hello, basically need to solve this in Excel VBA:

=sum(if(sum(a1:a5)>0;1;0)+if(sum(a6:a10)>0;1;0) +if(sum(a11:a15)>0;1;0)+if.....

He must run this loop "if" about 50 times. Note that the cells are added sequentially.