I'm trying to create a loop that will stop at the first blank line, then skip
4 lines and start the loop again. So far the first loop works great. I have
trouble with it trying to restart the loop after it skips four lines. Can
anyone Help!!!!!! This is what i have for the first loop.


Sub CalculateVariance()

Dim i As Integer
i = 11

Do Until IsEmpty(Cells(i, 9))

Cells(i, 17).Formula = "=rc[-8]-rc[-4]"
Cells(i, 18).Formula = "=rc[-8]-rc[-4]"
Cells(i, 19).Formula = "=rc[-8]-rc[-4]"

i = i + 1
Loop