Roadking,

For it to remain there after the original data is erased then you will need
VBA.

Is it from the same cell in the "working sheet"?  Assuming yes then
right-click on the sheet tab and copy and paste this macro into the
Worksheet module:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Target.Address() <> "$B$4" Then Exit Sub
   ' change $B$4 to your own cell
   MoveIt = Target.Value

   With Sheets("Second Sheet") ' Change to your sheet name
       LastRow = .Cells(Rows.Count, 4).End(xlUp).Row + 1
       ' change the 4 to the Column number that you want
           .Cells(LastRow, 4).Value = MoveIt
   End With
End Sub