for(y=1; y<=Bottom; y++) {
　[10,y] = replace([10,y], "otohime-ep10", "otohime-ep910");
　[10,y] = replace([10,y], "otohime-s", "otohime-ds");
　[10,y] = replace([10,y], "masu", "smasu");
　[10,y] = replace([10,y], "hirame", "shirame");
　[10,y] = replace([10,y], "brine", "zbrine");
　[10,y] = replace([10,y], "商品番号", "a商品番号");
}


x = 10;
Sort(Left,Top,Right,Bottom,x,true,false,false,false);

for (y = Bottom; y >= 1; y--) {
  if ([9,y] > 1) {
    InsertRow(y + 1, y + [9,y] - 1);
    for (i = 1; i < [9,y]; i++) {
      for (x = 1; x <= Right; x++) {
        [x,y+i] = [x,y];
      }
    }
  }
}

DeleteCol(10);
DeleteCol(9);