Tenho uma planilha onde a coluna A possui valores seguintes valores (1,2,4,6,8,10), sendo que os os campos com valor 1 devem ser a soma de todos os grupos 2 abaixo dele até o próximo valor com campo 1, e o grupo 2 deverá ser a soma de todos os valores do grupo 4 abaixo dele até a próxima célula com valor 2, e assim por diante até o grupo 8, que será a soma de todos os valores 10 abaixo dele.
Eu já criei uma estrutura para todos os valores de 8 serem preenchidos, porém os totalizadores de 1 até 6, como não são contínuos, não estou conseguindo somar.
For i = 1 To b
If balancete.Cells(i + 1, 1) = 10 Then
cont_10 = cont_10 + 1
ElseIf balancete.Cells(i + 1, 1) <> 10 Then
If balancete.Cells(i, 1) = 10 Then
balancete.Cells(i - cont_10, 4) = "=SOMA(D" & i + 1 - cont_10 & ":D" & i & ")"
cont_10 = 0
End If
Else
i = i + 1
End If
Next i