Enregistrement à la suite

Bonjour,

J'ai sur Feuil1 une case A1 (que je rempli de texte) et un bouton affilié à une macro

J'aimerais qu'à chaque fois que je clique sur mon bouton le contenu de la case A1 se retrouve sur Feuil2 (en B3 par exemple) et que à chaque clique le contenu s'enregistre à la suite (une case en dessous : B4, B5 etc)

J'ai réussi via le code ci-dessous a enregistrer d'une page à l'autre mais bien sure ça ne conserve pas le contenu.

    Sheets("Feuil1").Select
    Range("A1").Select
    Selection.Copy

    Sheets("Feuil2").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False