InsertCol(1);
[1,1] = "カウント用";
x = 1;
for (y = 2; y <= Bottom; y++) {
  [x,y] = "1";
}

InsertCol(2);
[2,1] = "合計値";
for (y = 2; y <= Bottom; y++) {
  [2,y] = sum(2, y, Right, y);
}

function areSame(y1, y2) {
  for (x = 2; x <= Right; x++) {
    if ([x,y1] != [x,y2]) {
      return false;
    }
  }
  return true;
}

function find(target) {
  for (y = target - 1; y > 1; y--) {
    if (areSame(y, target)) {
      return y;
    }
  }
  return 0;
}

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