Columns("M:N").Select
    Selection.Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

##</code><code>##

$Range_new1 = $Sheet->Range("m2");
$Range_new2 = $Sheet->Range("n2");
$Excel->Selection->Sort({Key1 => $Range_new1,
			Order1 => xlAscending,
			Key2 => $Range_new2,
			Header=>xlYes,
			OrderCustom=>1,
			MatchCase => False,
			DataOption1 => xlSortNormal});

##</code><code>##

$Range_new1 = $Sheet->Range("m:n");
$Range_new2 = $Sheet->Range("n2");
$Excel->Selection->Sort({Key1 => $Range_new1,
						 Order1 => xlAscending,
						 #Key2 => $Range_new2,
						 Header=>xlYes,
						 OrderCustom=>1,
						 MatchCase => False,
						 DataOption1 => xlSortNormal});