Timestamp Range On Enter

how I can modify the below code so that it populates the timestamp in the same row in Column E if Column A is populated with data...

Example:
Cell A1 is populated then populate Cell E1 with timestamp
if
Cell A4 is populated then populate Cell E4 with timestamp

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub

If Target.Address = "$A$2" Then
With Sheet1.Range("E2")
.Value = Time
End With
End If
End Sub