Obtener promedios de valores positivos por medio de vba

Buenas....

necesito que me ayuden con este codigo o si hay otra mejor todavia, este es el codigo:

For X = 2 To Range("F" & Rows.Count).End(xlUp).Row + 1

Range("H" & X) = ""

Range("I" & X) = ""

Do Until Not sumaa < 5 Or Range("F" & X) = ""

sumaa = sumaa + Range("F" & X)

sumab = sumab + Range("G" & X)

X = X + 1

Loop

If Not sumaa = 5 Then Range("I" & X - 1) = "*"

Range("H" & X - 1) = sumab

sumaa = 0

sumab = 0

If Not Range("F" & X) = "" Then X = X - 1

Next

En VBA quiero que me realize lo siguiente:

en la columna F me sume hasta 5 , y que vuelva a sumar 5 hasta el final y paralelamente en la columna G me obtenga el promedio de solo los positivos, en la columna H colocar el valor del promedio de la columna G, en la cual coincida en la columna F en donde sumo 5.

ejemplo:

F G H

1 -20

1 -20

1 -20

1 -20

1 -20 0

1 -20

1 -20

1 3

1 6

1 9 6

1 3

1 6

1 1

1 0

1 6 4

no puedo resolverlo , soy nuevo en esto, por favor ayudenme , solo logro sumar no mas .......

Muchas Gracias , aqui le dejo mi archivo

Probando.rar