Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Offset(0, 1).Value = "" Then
        Target.Offset(0, 1).Value = Format(Now(), "HH:MM:SS")
    End If
End Sub