Cell A1 has contents "ABC"

[citogrid]

Pretty newbie question:
Cell A1 has contents "ABC"

I want "ABC" to be copied to Cell B1

When Cell A1 content changes (say to word "DEF"), I want "DEF"to be copied to Cell B2

And so on... In the end I'd like to have a list of all content entered into cell A1

Don't really know which formula to use here...

Thanks for any help.

 

[jolivanes]

Put this in the sheet module of the sheet in question.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Range(Target.Address)) Is Nothing Then
    Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = Cells(1, 1).Value
End If
End Sub