Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:C1000], Target) Is Nothing And Target.Count = 1 Then
[A2:g1000].Sort Key1:=[A2], Key2:=[B2], Key3:=[C2]
[A1:g1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[i1], Unique:=True
[A1:g1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[k1:l1], Unique:=True
End If
End Sub