my $start = $offset[$k] + $vert_offset;
	my $end = $offset[$k + 1] + ($vert_offset - 2);

	# Sort data ready for charting

	$sheet4->Rows("$start:$end")->Sort("F5");

##</code><code>##

# sort rows
Rows("5:58").Select
Selection.Sort Key1:=Range("F5"), Order1:=2, Header:=2,
	OrderCustom:=1, MatchCase:=False, Orientation:=1,
	DataOption1:=0