Dear all
I have an excel sheet which I enter data in Colum A then it inserts automatically a Date Stamp in to Colum C, a Time Stamp in to Colum D and an User name in to column E by the below code.

What I like to do is if I or someone else amends the Colum A's data, I also want all the other columns data to be amended. What do I need to add to the below code in order to achieve this?

thank you for your help in advance

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, [A2:A1000]) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Offset(, 2) = Date
Target.Offset(, 3) = Time
Target.Offset(, 4) = " by " & Environ("UserName")

End Sub