Modify the code to change positive numbers to negative numbers in arrays

[Excelpromax123]

Hello everyone. I need to correct the code below, when outputting the number to column E, change the positive number to Negative (Like the image described below). Hope everyone can help, thank you very much!

I tried to fix it like this but the code is not working properly
arr(ik, 2) = (arr(ik, 2) + CDbl(s(1))) * -1

Sub totalsum()
On Error Resume Next
  Dim Dic As Object, dArr As Variant, arr As Variant, Tmp As Variant, s As Variant
  Dim i As Long, J As Integer, K As Long, ik As Long, key As String, b As Long, C As Long
  Set Dic = CreateObject("Scripting.dictionary")
  dArr = Range("B3:B11").Value
  ReDim arr(1 To UBound(dArr), 1 To 3)
  For i = 1 To UBound(dArr)
      Tmp = Split(dArr(i, 1), ";")
      For J = LBound(Tmp) To UBound(Tmp)
          s = Split(Tmp(J), "*")
          If UBound(s) = 2 Then
              key = s(0)
              If Not Dic.Exists(key) Then
                  K = K + 1
                  Dic.Add key, K
                  arr(K, 1) = key
              End If
              ik = Dic.Item(key)
              arr(ik, 2) = (arr(ik, 2) + CDbl(s(1)))
              arr(ik, 3) = arr(ik, 3) + CDbl(s(2))
              
          End If
      Next J
 
  Next i
Range("D3:E11").ClearContents
Range("D3:E11").Resize(K) = arr

End Sub

fix.xlsm

drive.google.com

 

[Trebor76]

Hi Excelpromax123,

Try changing the plus signs in these two lines...

arr(ik, 2) = (arr(ik, 2) + CDbl(s(1)))
arr(ik, 3) = arr(ik, 3) + CDbl(s(2))

...to minuses:

arr(ik, 2) = (arr(ik, 2) - CDbl(s(1)))
arr(ik, 3) = arr(ik, 3) - CDbl(s(2))

Not sure why for b I'm getting 40 not 43.

Regards,

Robert

 

[bebo021999]

May be:
change
arr(ik, 2) = arr(ik, 2) + CDbl(s(1))
into
arr(ik, 2) = arr(ik, 2) - CDbl(s(1))

 

[Excelpromax123]

Hi Excelpromax123,

Try changing the plus signs in these two lines...

arr(ik, 2) = (arr(ik, 2) + CDbl(s(1)))
arr(ik, 3) = arr(ik, 3) + CDbl(s(2))

...to minuses:

arr(ik, 2) = (arr(ik, 2) - CDbl(s(1)))
arr(ik, 3) = arr(ik, 3) - CDbl(s(2))

Not sure why for b I'm getting 40 not 43.

Regards,

Robert

Thank You !