Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4:B" & Rows.Count)) Is Nothing And Target.Count = 1 Then
If Target.Value <> "" Then Target.Offset(, 15).Value = CDate(CStr(Format(Now, "dd/mm/yyyy"))) Else Target.Offset(, 15).ClearContents
End If
End Sub