n = int(InputBox("削除する文字数を入力してください。"));
if (n <= 0) {
  return;
}

for (y = 1; y <= Bottom; y++) {
  [x,y] = mid([x,y], n + 1);
}