Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 Or .Column = 4 Or .Column = 8 Or .Column = 9 Then
If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents: .Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else: .ClearContents: .Select
End If
End If
End With
End Sub