Comment faire une sommes jusqu'à la cellule i ?

Bonjour à tous,
j'ai fait une colonne qui se remplit automatiquement dès la dernière ligne vide et je voudrais en dessous de cette dernière ligne vide faire le total de toute mes cellules affichées ... voila mon bout de code :
sheet1.Cells(i + 2, 2) = Application.WorksheetFunction.Sum(Range(Cells(5, 2), Cells(i, 2).value))
Mais cela me donne toujours un total = 0. Comment faire ?
Merci de vos réponses !