error at: dAvg(i) = dAvg(i) + rngArea.Offset(-1).Cells(1).Value