[LightImage]

Вот текст программы:

Sub DoAjustRngSum()
    LI_AdjustRangeSum ActiveSheet.Range("A2:A13")
End Sub
Sub LI_AdjustRangeSum(rng As Range)
Dim S As Double, S_a As Double
Dim curc As Range
    S = 0
    S_a = 0
    For Each curc In rng
        S = S + curc.Value
        S_a = S_a + Abs(curc.Value)
    Next
    For Each curc In rng
        curc.Value = curc.Value - S * Abs(curc.Value) / S_a
    Next
End Sub

Добавь этот код в какой-нибудь модуль, скорректируй DoAjustRngSum(), выполни её и будет тебе счастье
Например, твой столбец преобразуется этой функцией в
595,8594868
-1085,681335
-766,9972051
1279,450474
287,7210363
-1161,372611
-1089,198193
-1414,192317
-1046,24008
2288,502014
2720,894396
-608,7456671