Hi,

I have some code that stores the values the are typed into a cell. This is so I can track dates and how much they changed from start to finish.

The code that I have does this function, but it only works for A1 and nothing else.

I want this to work on a line by line basis as each row in excel is a different piece of work.

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lCol As Long
      If Not Intersect(Target, Range("A1")) Is Nothing Then
          Application.EnableEvents = False
          'Get the last column for Row A. This will determine where the value needs to be copied
          lCol = Cells(1, Columns.Count).End(xlToLeft).Column
          'Copy to the first row of the next column found above
          Cells(1, lCol + 1).Value = Range("A1").Value
          Application.EnableEvents = True
      End If

End Sub
Any help would be great!