Office - MACROS

QUIERO USAR UNA MACRO, UN BOTON, DONDE AL DARLE CLICK ME LLEVE EL DATO A OTRA HOJA Y LO PONGA EN UNA CELDA, PERO AL DARLE NUVAMENTE OTRO CLICK AL BOTON QUE ME GUARDE EL DATO ABAJO DEL DATO ANTERIOR?-- COMO LO HAGO...

SUPONIENDOQ UE EN HOJA1 TENGO EL BOTON le doy click , me lleva el dato a HOJA2 y lo opne en una celda, pero al regresarme a hoja1, le doy nuevamente click que me coloque el dato reciente abajo de donde puso el antetior

ej:

hoja1
cantidad: 5,000 al darle click BOTON

que lo mande a la hoja2

cantidad

5,000

me regreso a la hoja1, ingreso otra cantidad , oprimo click y que lo mande a la hoja2

cantidad

5,000
10,000

Hola esto sirve para lo que pides, claro se puede mejorar un mundo ,pero te respondo desde el trabajo en 2 min y no puedo extenderme tanto como antes a dar explicaciones sin embargo me gusta contestar al foro y dejo este aporte

Private Sub CommandButton1_Click()
ActiveCell.Copy
Sheets("Hoja2").Activate

ActiveSheet.Range("A2").Activate
While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Activate

Wend

If ActiveCell.Value = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Else
ActiveCell.Offset(1, 0).Select

With Selection
ActiveSheet.Paste
Application.CutCopyMode = False
End With
End If

Sheets("Hoja1").Activate

End Sub