I'm sorry i forgot to put the line of error
. When it get's to sorting, so line :
Selection.Sort Key1:=Range("G11"), Order1:=xlAscending, Key2:=Range("B11" _ ), Order2:=xlAscending, Key3:=Range("C11"), Order3:=xlAscending, Header _ :=xlGuess, OrderCustom:=1, MatchCase:=False...