Sort(1, 1, Right, Bottom, 1, false, true, false, false);

t = 1;
for (y = 1; y <= Bottom + 1; y++) {
  if ([1,y] != [1,y-1] || [3,y] == "") {
    if (t < y - 1) { 
      Sort(1, t, Right, y - 1, 3, false, true, false, false);
    }
    if ([3,y] == "") {
      t = y + 1;
    } else {
      t = y;
    }
  }
}