my $Rangea = 'B1';
my $Rangeb = 'B100';

$Excel->Selection->Sort({Key1 => $Rangea,
                        Order1 => xlDescending,
                        Key2 => $Rangeb});