Extending Range in Code

Sorry about this.

I still need the code to keep a track of all the values that have been entered in column A but I need to output to start in column Z then AA then AB etc.

I have a picture that might explain better.

This code is what I need except I need it to not start recording in the column beside A (where data is input).

  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lCol As Long
      If Not Intersect(Target, Range("A1:A10")) 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(Target.Row, Columns.Count).End(xlToLeft).Column
          'Copy to the first row of the next column found above
          Cells(Target.Row, lCol + 1).Value = Range("A" & Target.Row).Value
          Application.EnableEvents = True
      End If

End Sub

Capture.PNG