my $sheet1 = $workbook->Worksheets(1)->{Name};
$sheet1=$workbook->Worksheets($sheet1);
$sheet1->Activate;
my $rows=$sheet1->UsedRange->Rows->{'Count'};
$sheet1->Sort->SortFields->Add($sheet1->Range("A2:A" . $rows),xlSortOnCellColor, xlAscending, xlSortNormal)->SortOnValue->{Color} = RGB(255, 0, 0);