Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1).Value = CDate(Format(Now, "dd.mm.yyyy"))
End If
Select Case Target.Column
Case 6, 44
If Target = "12S*" Or Target = "14S*" Or Target.Value = "21S*" Or Target.Value = "44S*" Then
Else
Target.Offset(0, 1).Value = "SILO"
End If
End Select
Application.EnableEvents = True
End Sub