nao entendi, seria isso?

Sub soma()
Dim i As Integer, j as integer
Dim resultado1 As Integer

j = 3

do while not isempty(Cells(j, "B"))

resultado1 = Sheets("plan1").Range("B" & j).Value

i = Sheets("plan1").Range("i" & j).Value

Sheets("plan1").Range("I" & j).Value = resultado1 + i

j = j + 1

Loop

End Sub

Boa noite!!

Eu não entendi sue raciocínio...você pretende somar os valore de uma coluna?

Meu exemplo cria uma soma em baixo da ultima célula da coluna B.

Sub SomaAleVBA()
Dim LR As Long
With Sheets("Plan1")
    LR = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("B" & LR + 1).Value = WorksheetFunction.Sum(.Range("B1:B" & LR))
End With
End Sub

Att

Na verdade toda vez que eu coloco um valor em uma coluna ele faz o acumulado, exemplo, hoje coloco a quantidade 3, e me mostra na coluna seguinte na mesma linha 3, amanhã 4 ai irá acumular e mostrar 7.