Divide a range of cells then add up the number and paste value with VBA.

Could someone help me with creating a VBA code to do the following
Cell H8 will be where I need the value to be placed.
If there's a number value in Range D68:D81 and there's a number value in range H68:H81 I would like to divide H68 by D68 and put that number in cell H8. And on down the rows.
So say H68 is 300 and D68 is 2 then cell H8 would show 150.
And if H80 is 400 and D80 is 2 then cell H8 would 350. It would add up the values and put that number in cell H8.

Thanks in advance
Excel 2010

I'm getting a Run-time error '28':
Out of stack Space

Please Login or Register  to view this content.

Do you know what I'm doing wrong with it?

Try

Please Login or Register  to view this content.

That seems to be working better. It's doing some calculations but if I type 2 in cell D68 and type in 200 in cell H68 the result in cell H8 shows 0.01. And it should show 100. I might be missing something here but it's close. Any ideas?

Nevermind. I had the D column getting divided by the H column. And I needed it the other way. So thank you very much!!

You are welcome and thanks for the rep.

It is using formula to calculate, so if you enter formula
=sum(if((isnumber(d68:d81))*(isnumber(h68:h81)),d68:d81/h68:h81))
in H8 and confirm with Ctrl+Shift+Enter (array forumla entry), it should update automatically.
So no need of vba.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.