Range("B" & FirstRow & ":L" & FinalRow).Sort Key1:=Range("B" & FirstRow), Order1:=xlAscending, Key2:=Range("C" & FirstRow _
), Order2:=xlAscending, Key3:=Range("D" & FirstRow), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom