[Renommé] Valeurs incrémentées dans la cellule suivante

Bonjour,

je débute dans le langage VBA, je souhaite créer une macro attachée à un bouton formulaire qui me permette de mettre les valeurs --qui augmentent de 1en 1 de la cellule dans ma feuille1(score) après avoir cliquer sur mon bouton-- dans une même colonne de ma feuille2(histo). J'imagine que ça ne doit pas être très compliqué, mais j'arrive seulement à copier la nouvelle valeur(après avoir cliquer sur mon bouton) dans une seule cellule de la feuille2 ce qui écrase la valeur précédente. En gros j'aimerais que chaque nouvelle valeur soit mise dans la ligne en dessous de ma colonne de feuille2(histo) afin de conserver toutes les valeurs après plusieurs clics successifs sur mon bouton. Merci d'avance.
Pour info: mes lignes ci dessous
S

ub Bouton7_Cliquer()
For i = 1 To 1

    [N4] = [N4] + 1
    
Next
Sheets("Histo").Cells(i + 2, 5).Value = [N4]
Sheets("Histo").Cells(i + 2, 6).Value = [O4]
End Sub
Sub Bouton8_Cliquer()

For i = 1 To 1

    [O4] = [O4] + 1
    
Next
 Sheets("Histo").Cells(i + 2, 5).Value = [N4]
 Sheets("Histo").Cells(i + 2, 6).Value = [O4]
End Sub

EDIT: Ajout de la coloration syntaxique.