key = InputBox("検索キーワードを入力");
rightCell = InputBox("右側のセルに入力する文字");

for (y = 1; y <= Bottom; y++) {
  for (x = 1; x <= Right; x++) {
    if ([x,y] == key) {
      x++;
      [x,y] = rightCell;
    }
  }
}