start = 3
i = start
soucet = 0
Do While len(Range("F" & i).Value) > 0
    soucet = soucet + Range("F" & i).Value
    i = i + 1
Loop
Range("G3").Value = soucet / (i - start)