how can i link this code to another sheet?

hello i'm new here,
i do apologize, if i have posted incorrectly.

i use the code below to log the changes of cell A1 on sheet1, each time the cell is updated the value is put into cellA2 then cell A3 ect. what i need to do is make the log on Sheet2 column A. i have tried to adjust the code to allow for this but cant get it to work.
thanks for any help.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A1").Value
        Application.EnableEvents = True
    End If
End Sub