sub sortByColor()
{
	my $filename = $_[0];
	my $no_of_columns = $_[1];
    say "Activate $filename";
    say "No Of COlumns = $no_of_columns";
    $excel->{DisplayAlerts}=0;
	$excel->Windows($filename)->Activate;
	$workbook = $excel->Activewindow;
	$sheet1=$workbook-> Activesheet;
	my $rows= $sheet1->UsedRange->Rows->{'Count'}; 
	my $cols= $sheet1->UsedRange->Columns->{'Count'};
	my $red_count = 0;
	my $sorted_count = 0;
	foreach my $row ( 2 .. $rows )
	{
		#next unless defined $sheet1->Cells($row,1)->{'Value'};
		my $Range = $sheet1->Range("A$row:A$row");
		if ($Range->Interior()->ColorIndex() == 3)
		{
			$sheet1->rows($row . ":" . $row)->cut();
			my $rngIns=$sheet1->Range(($red_count+2) . ":" . ($red_count+2));
			$rngIns->EntireRow->Insert;
			$sheet1->rows(($red_count+2) . ":" . ($red_count+2))->Select();
			$sheet1->paste();
			$red_count = $red_count + 1;
			$sorted_count = $sorted_count + 1;
		}
	}
	my $column ="";
	foreach my $col ( 1 .. $no_of_columns)
	{
		$column =  colIdToString($col);
		foreach my $row ( ($sorted_count+2) .. $rows )
		{
			#next unless defined $sheet1->Cells($row,$col)->{'Value'};
			my $Range = $sheet1->Range("$column$row:$column$row");
			if ($Range->Interior()->ColorIndex() == 6 )
			{
				$sheet1->rows($row . ":" . $row)->cut();
				my $rngIns=$sheet1->Range(($sorted_count + 2) . ":" . ($sorted_count+2));
				$rngIns->EntireRow->Insert;
				$sheet1->rows(($sorted_count + 2) . ":" . ($sorted_count+2))->Select();
				$sheet1->paste();
				$sorted_count = $sorted_count + 1;
			}
		}
	}
}