Pessoal, estou montando um código no VBA que vai somar determinadas células de uma planilha até atingir um valor que eu quero. Por exemplo, tenho 130 valores em uma planilha e quero que o VBA some algumas delas até atingir o valor de 2.000.000. No código que tenho o VBA vai só até o valor da soma(LOAD) ser menor que o meu limite(BARCAÇA) e aí ele pára. Mas quero dá um jeito de ele tirar da soma a última célula somada e pular para a próxima e soma a célula ativa até que o valor da soma seja igual a do limite. Tipo, somei as células de D3 até D45 e o valor da soma passou do limite, tiro a ultima célula e pulo para a próxima, se a soma passar do limite novamente, pulo para a próxima e assim sucessivamente até que o valores de LOAD e BARCAÇA sejam iguais. Alguém pode me ajudar? Já estou apresentando problemas com esse projeto, não consigo evoluir nele de tanto que já bati cabeça.
Sub CONTAR()
Dim LOAD As Double
Dim BARCAÇA As Double
Range("D3").Select
LOAD = 0
BARCAÇA = Range("F2")
Do While LOAD < BARCAÇA
If ActiveCell.Value = "" Then
ActiveCell.Value = LOAD
End
Else
LOAD = LOAD + ActiveCell.Value
ActiveCell.Interior.Color = vbYellow
ActiveCell.Offset(1, 0).Activate
End If
Loop
LOAD = LOAD - ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(-1, 0).Activate
Range("G2").Select
ActiveCell.Value = LOAD
ActiveCell.Interior.Color = vbGreen
LOAD = 0
End Sub