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