creating a list from repeated one cell entry

Hi Donald.
:Can anyone tell me how this can be done?
If VBA("worksheet change event ") is used, it can be done.
Only you have to do is input the data in A1.

The cell for the input of Sheet1 is assumed to be A1.
Data is accumulated in A row of Sheet2.
It is assumed that the A1 cell of Sheet2 is a title.

To use this code, right click on your "sheet1" tab and select "View Code",
Paste the following code into there.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
Sheets(2).Range("A65536").End(xlUp).Offset(1).Value = Target.Value
End Sub

Thanks Colo
it worked!!