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