Fonction somme VBA

Bonjour,

Je suis nouveau sur le forum et en VBA Excel. Je souhaiterais à la suite d'un code définir dans une cellule la somme d'une colonne qui sera déterminé à partir de données qui pourront varier.

Voici le début de mon code:

Dim C
Dim F
Dim Po
Dim rt
Dim n

C = Range("b1").Value
F = Range("b2").Value2
Po = Range("b3").Value
rt = Range("b4").Value
n = Range("b5").Value


Range("a8").Select

Do While ActiveCell <> ""


ActiveCell.Offset(0, 1).Value = C * Po
ActiveCell.Offset(0, 2).Value = 1 / (1 + rt) ^ ActiveCell.Value
ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 1).Value * ActiveCell.Offset(0, 2).Value


ActiveCell.Offset(1, 0).Select



Loop

Activecell.Offset(0,3).Value= (là je souhaiterais faire la somme de l'ensemble des cellules du dessus)

J'espère avoir été assez clair merci pour votre aide.