Boa noite, Silverio.
Levando em consideração que seu dados estejam na coluna A, seria algo mais ou menos assim:
Sub Contar_Ate_7()
Dim i As Long
Dim UltLin As Long
Dim Soma As Double
UltLin = Plan1.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To UltLin
Soma = Soma + Plan1.Range("A" & i)
If Soma >= 7 And Soma <= 7.04 Then
Plan1.Range("B" & i).Value = 1
If Plan1.Range("B" & i).Value = 1 Then
Soma = 0
End If
End If
Next i
End Sub
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. 
Postado : 25/10/2016 10:11 pm