Macro para asignación de porcentajes Excel

Estoy intentando crear una macro que me pueda decir qué porcentaje tiene cierta celda dependiendo del total de la fila

Ejemplo:

1000   =   %10

5000   =   %50

4000   =   %40

A lo que me refiero es que tendría los valores de lado izquierdo y dependiendo de la suma de estos, la macro arroje el porcentaje que corresponde a cada uno.

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(OFFSET(ActiveCell,1,0):Selection.End(xlUp))"
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Hasta ahora llevo ese código, pero no consigo que funcione la función SUM con el OFFSET

¿Alguien sabe qué puedo hacer?