function find(str, max) {
  for (y = 2; y < max; y++) {
    if ([1,y] == str) {
      return y;
    }
  }
  return 0;
}


for (y = Bottom; y > 2; y--) {
  found = find([1,y], y);
  if (found > 0) {
    [2,found] = [2,found] + [2,y];
    DeleteRow(y);
  }
}