path = "C:\\Users\\ユーザー名\\Desktop\\";
bottom = Bottom;
right = Right;

table = {};
for (y = 1; y <= bottom; y++) {
  table[y] = {};
  for (x = 1; x <= right; x++) {
    table[y][x] = [x,y];
  }
}

DeleteRow(2, bottom);
DeleteCol(2, right);

for (y = 1; y <= bottom; y++) {
  s = "";
  for (x = 2; x <= right; x++) {
    s += table[y][x];
  }
  [1,1] = s;
  SaveAs(path + table[y][1] + ".html", "TSV");
}

for (y = 1; y <= bottom; y++) {
  for (x = 1; x <= right; x++) {
    [x,y] = table[y][x];
  }
}