Copier la valeur du msgbox dans la cellule sous l'autre

Bonjour,

Dans la feuille 1 j'ai un bouton et quand je pèse, j'écris une information qui s'inscris automatiquement dans la feuille 2 en c4. Il y a aussi la date de la saisie de l'information qui apparait à côté dans la feuille 2. Jusqu'ici ça va. Par contre, quand je clique de nouveau sur le bouton la nouvelle information s'inscris sur la précédente dans la 2e feuille, j'aimerais que l'info apparaisse en dessous de l'autre et la suivante en dessous ainsi de suite, pareil pour la date. Que la date suit la nouvelle information.

J'espère avoir été claire, pas évident d'expliquer en mot.

Merci

Bonjour,

Sub bouton()
'ajouter les notes à la deuxière feuille
Dim LastRw&
Dim resultat As String
Dim ColAjout As Integer
    resultat = InputBox("Follow up : ", "Notes")
    If resultat <> "" Then
'    MsgBox resultat
    End If

 With Sheets(2)
  LastRw = .Cells(Rows.Count, 3).End(xlUp).Row + 1
  .Range("B" & LastRw).Value = Now
  .Range("C" & LastRw).Value = resultat
 End With

 End Sub

Merci sabV !! C'était exactement ce que je voulais !!