for (y = 1; y <= Bottom; y++) {
  [x+1,y] = y;
}

for (y = Bottom; y >= 1; y--) {
  for (y2 = y - 1; y2 >= 1; y2--) {
    if ([x,y2] == [x,y]) {
      [x+1,y2] = [x+1,y2] + "," + [x+1,y];
      DeleteRow(y);
      break;
    }
  }
}