Assign to a button.

Sub cuttoendofcolumn()
If ActiveCell.Address < "$B$1" Then Exit Sub
lr = Cells(Rows.Count, "b").End(xlUp).Row + 1
ActiveCell.Cut Cells(lr, "b")
End Sub

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
If I have an entry in A1 and decide to delete it, can I make it appear
in B1 as a result of the deletion? I want it to remain in the second
cell. If I delete a later entry in A1, can it be made to go to B2?
In other words, if everytime I delete an entry in A1, can all those
deleted entries be made to fall one after another in column B (B1, B2,
B3, etc.)? Thanks.

Michael