Optimisation du code Vba (automatiquement)

Bonjour,

J'ai un code qui me pose problème ce que j'aimerais c'est qu'il me fasse la somme de la colonne G mais le nombre de ligne change à chaque lancement du fichier dans mon code la formule permet de faire la somme que de 14 lignes je sais pas comment faire pour qu'il commence à chaque fois à partir de la ligne 5 et la somme se fait dans la colonne G à la première ligne vide.

Merci.

  
  Sub Test()
    

 With Worksheets("Feuil2")
    .Range("G5:G" & .Cells(.Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=((NUMBERVALUE(RC[-2]))*10)+(RC[-1]*10000)"
    Selection.NumberFormat = "0.00"
End With
    
With Worksheets("Feuil2")
    .Range("G5:G" & .Cells(.Rows.Count, 2).End(xlUp).Row).Select
    .Range("G65536").End(xlUp).Offset(1, 0).Select
     ActiveCell.FormulaR1C1 = "=(SUM(R[-14]C:R[-1]C))+(SUM(R[-14]C:R[-1]C)/10)"
    .Range("G65536").End(xlUp).Offset(1, 0).Select
End With