Not sure if possible..brackets issue

[Immatoity]

many thanks I will give it a try later on

I am not sure how you want it placed but this works per your request.

[VBA]
Option Explicit
Sub AddPara(iInfo As String, iRow As Long, iCol As Long)
Dim mData() As String, mTotal As Double, Percent As Double
Dim mI As Long
mData = Split(iInfo, "(")
For mI = LBound(mData, 1) + 1 To UBound(mData, 1)
mTotal = mTotal + Val(mData(mI))
Next
ActiveSheet.Cells(iRow, iCol + 1 + mI).Value = mTotal
For mI = LBound(mData, 1) + 1 To UBound(mData, 1)
Percent = Val(mData(mI)) / mTotal
ActiveSheet.Cells(iRow, iCol + 8 + mI).Value = Percent
Next
End Sub
Sub Test()
AddPara ActiveCell.Text, ActiveCell.Row, ActiveCell.Column
End Sub
[/VBA]