Copier coller avec condition

Bonjour,
voila je veux faire une petit calcul dans une même feuille ou j"ai deux parties :
une partie ou je calcule et après avoir eu un total je voudrais des que j'actionne le bouton de mon macro le total calculé aille se coller sur la deuxième partie ceci pour chaque total calculé .Mon problème c'est comment faire pour que le deuxième total et ainsi de suite se positionne a chaque fois a la cellule vide qui se trouve juste en dessous de la cellule remplie précédemment pour que j'obtienne une liste complète sur ma partie deuxième .
LE Premier total positionné en haut ma donné sa:

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("G17").Select
    Selection.Copy
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

mais je peux pas faire la suite car sa se colle a la meme place . lenjeu cest de ne pas aller a ecire le total a chaque juste de cliquer sr mon macro pour le voir etre rempli a gauche etre plus rapide .