Calculate Weighted Average Of Prices For 12 Months

I wrote code that works just fine, however, I realized there were parts of the data I was using that had 0's in it for holiday.

Bottom line, this is code that calculated the weighted average of prices for 12 months (12 rows across) and Drows across. I'm trying to use the "do while is empty" approach but can't get the syntax to work. Here's the code

Code:
For r = 1 To drows
Totwavg = 0
Tothours = 0
priceavg = 0

For n = 1 To ncontracts

[Code] .....