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