Вы можете использовать этот код для активации ваших требований
' Function for adding a cell value that is separated by + symbole
Function AddCellValue(Rng As Range) As Variant
AddCellValue = Evaluate(Application.Substitute(Rng, "+", "+"))
End Function