programación vba

Sub prueba()

Dim i, j, k, l, v

v = [h10000].End(xlUp).Row

k = 1

l = 1

Para i = 2 Para v

Si Cells(i, 3) lt；gt "" O i = v Entonces p>

Si i lt;gt; v Entonces l = i - 1 De lo contrario l = i

Celdas(k, 4) = WorksheetFunction.Sum(Range(Cells(k, 6) , Celdas (l, 8)))

Para j = k To l

Celdas(j, 9) = Celdas(j, 8) / Celdas(k, 3) * 10000

k = i

Finalizar si

Fin Sub

Lo traes y lo pruebas.