Excel Como somar e Armazenar valores de uma coluna para Outra ?

[SrMths]

eu quero por um valor na coluna azul e ele passar esse valor e guardar na coluna laranja e conforme eu for botando outros valores na coluna azul ele vá guardando na coluna laranja somando eles e armazenando

 

[AfonsoMira]

Boas, @SrMths
Isso é possível com recurso a Macro.

Veja um exemplo:
 

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.ActiveSheet

Dim azul As Range: Set azul = ws.Range("B1")
Dim laranja As Range: Set laranja = ws.Range("A1")

laranja.Value = laranja.Value + azul.Value

azul.Value = ""

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[SrMths]

@AfonsoMira Esta me voltando esse erro

[SrMths]

ja resolvi obrigado mano ficou assim o código 

 

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.ActiveSheet

Dim tichondriusnovo As Range: Set tichondriusnovo = ws.Range("C2")
Dim tichondriustotal As Range: Set tichondriustotal = ws.Range("B2")

Dim malganisnovo As Range: Set malganisnovo = ws.Range("C3")
Dim malganistotal As Range: Set malganistotal = ws.Range("B3")

Dim zuljinnovo As Range: Set zuljinnovo = ws.Range("C4")
Dim zuljintotal As Range: Set zuljintotal = ws.Range("B4")

Dim thrallnovo As Range: Set thrallnovo = ws.Range("C5")
Dim thralltotal As Range: Set thralltotal = ws.Range("B5")

Dim illidannovo As Range: Set illidannovo = ws.Range("C6")
Dim illidantotal As Range: Set illidantotal = ws.Range("B6")

Dim quelthalasnovo As Range: Set quelthalasnovo = ws.Range("C7")
Dim quelthalastotal As Range: Set quelthalastotal = ws.Range("B7")

Dim stormragenovo As Range: Set stormragenovo = ws.Range("C8")
Dim stormragetotal As Range: Set stormragetotal = ws.Range("B8")

Dim proudmoorenovo As Range: Set proudmoorenovo = ws.Range("C9")
Dim proudmooretotal As Range: Set proudmooretotal = ws.Range("B9")

tichondriustotal.Value = tichondriustotal.Value + tichondriusnovo.Value
tichondriusnovo.Value = ""

malganistotal.Value = malganistotal.Value + malganisnovo.Value
malganisnovo.Value = ""

zuljintotal.Value = zuljintotal.Value + zuljinnovo.Value
zuljinnovo.Value = ""

thralltotal.Value = thralltotal.Value + thrallnovo.Value
thrallnovo.Value = ""

illidantotal.Value = illidantotal.Value + illidannovo.Value
illidannovo.Value = ""

quelthalastotal.Value = quelthalastotal.Value + quelthalasnovo.Value
quelthalasnovo.Value = ""

stormragetotal.Value = stormragetotal.Value + stormragenovo.Value
stormragenovo.Value = ""

proudmooretotal.Value = proudmooretotal.Value + proudmoorenovo.Value
proudmoorenovo.Value = ""

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub