Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerL As Long
If Target.Column = 7 And Target.Row > 3 Then
DerL = Cells(Cells.Rows.Count, Target.Column).End(xlUp).Row
Range(Cells(4, Target.Column - 2), Cells(DerL, Target.Column)).Sort Key1:=Cells(4, Target.Column - 2), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
Range(Cells(4, Target.Column - 2), Cells(DerL, Target.Column)).RemoveDuplicates Columns:=Array(1, 2),Header:=xlNo
End If
...
End Sub