And the promised code...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Cells.Address <> "$A$1" Then Exit Sub
If IsEmpty(Cells(1, 2).Value) Then
Cells(1, 2).Value = Target.Value
Else
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = _
Target.Value
End If
End Sub
--
Regards,
Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions