InsertCol(12, 14);
for (y = 1; y <= Bottom; y++) {
  [14,y] = [1,y];
  [13,y] = [2,y] + "" + [3,y];
  [12,y] = [4,y] + "" + [5,y];
  [1,y] = [9,y] + "" + [10,y] + "" + [11,y];
  [2,y] = "";
}
DeleteCol(9, 11);
DeleteCol(3, 5);