s = InputBox("2列目に移動する文字を入力してください。");
if (s == "") {
  return;
}

for (y = 1; y <= Bottom; y++) {
  p = pos([1,y], s);
  if (p > 0) {
    [2,y] = mid([1,y], p);
    [1,y] = left([1,y], p - 1);
  }
}