If you mean automatically, then
right click sheet tabview codeinsert this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$A$1" Then Exit Sub
Application.EnableEvents = False
lr = Cells(Rows.Count, "a").End(xlUp).Row + 1
Target.Cut Cells(lr, "a")
'or
'Range("a" & lr).Value = Target
'Target = ""
Application.EnableEvents = True
End Sub
--
Don Guillett
SalesAid Software

"comparini3000" wrote in message
...
thank you very much don. i have one more question...
if i have a list in column A...say it goes from A2 to A16. if the user
puts
in a value in cell A1 what should i do to have the macro cut the value in
A1
and move it to A17?