for (y = Bottom; y >= 1; y--) {
  for (x = Right; x > 2; x--) {
    if ([x,y] != "") {
      InsertRow(y + 1);
      [1,y+1] = [1,y];
      [2,y+1] = [x,y];
      [x,y] = "";
    }
  }
}