Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range('B:B')) Is Nothing Then
Cells(Target.Row, 1) = Target.Row
Cells(Target.Row, 3) = Format(Now, 'DD/MM/YY HH:MM:SS')
Cells(Target.Row, 4) = Application.UserName
End If
End Sub