InsertCol(5);
for (y = 1; y <= Bottom; y++) {
  [5,y] = mid([4,y], pos([4,y], "-") + 1);
}
Sort(1, 1, Right, Bottom, 5, false, false, false, false);
DeleteCol(5);