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