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
End If
If Target.Column = 10 And Target.Row > 3 Then
DerL = Cells(Cells.Rows.Count, Target.Column).End(xlUp).Row
Range(Cells(4, Target.Column - 1), Cells(DerL, Target.Column)).Sort Key1:=Cells(4, Target.Column - 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
End If
If Target.Column = 13 And Target.Row > 3 Then
DerL = Cells(Cells.Rows.Count, Target.Column).End(xlUp).Row
Range(Cells(4, Target.Column - 1), Cells(DerL, Target.Column)).Sort Key1:=Cells(4, Target.Column - 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
End If
End Sub