valjda imaš razloga što si to tako postavio..
nabrzinu sam radio i sad moram ić na sastanak pa nisam mogao dotjerat točno no
Sub pokreni()
For Each c In Worksheets("Sheet1").Range("d1:d1000")
d = c.Value
c.Value = d + c.Offset(0, -1).Range("A1").Value
Next c
End Sub
'd = c.Value uzima postojeću vrijednost
'c.value= nova vrijednost
'c.value=postojeća vrijednost+vrijednost prvog polja s lijeve strane
bitno je da imaš neki rezultat u polju d
btw.
a zakaj nemaš još jedno skriveno polje bilo gdje na kraju tabele...
u njeg stavljaš ukupnu vrijednos i na nju dodaješ novu...
ne bi narušio vizualni izgled tabele a bilo bi elegantnije..