keeping track of a cells value

Hi Leith,

I have a notes column in a spreadsheet, in which I want to be able to enter new notes but keep track of the old notes in a different sheet.
I used this on my spreadsheet and it worked. However, I want the old data to be placed on a different sheet. I attempted to change it and failed. I am a novice when it comes to VB so, I'm sure I went about it all wrong. My intention was to place the old data from F4 on Sheet1 to A2,A3,A4 etc. on Sheet 2. This is how I tried to do it:

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.EnableEvents = False
    If Target.Address = "$F$4" And IsEmpty(Range("Sheet2!A2")) = True Then
      Range("Sheet2!A2") = Target
    Else
      Target.End(xlDown).Offset(1, 0) = Target
    End If
  Application.EnableEvents = True
  
End Sub

Basically, the notes section is used to give a status such "called parents on 10/14/14". The next day I would type in "Mom called back on 10/15/14". I want to be able to see the history of what has been written in the notes section.

I would appreciate any help you can provide. Thanks in advance.

Manny