Probléme de somme variable

bonjour les pros !!

voici mon problème qui me rend chèvre lol

j'utilise cette petite micro-macro

Sub test()
ActiveCell.Value = Application.WorksheetFunction.Sum(Range("G4:G10"))
End Sub

elle me convient presque

en faite je sais que la somme démarre toujours en G4 mais je sais qu'elle finira non pas en G10 mais environ 2 cellules au dessus de l'activecell (bien évidement l'activecell sera toujours sur la colonne G.

merci d'avance pour votre légendaire efficacité

seb