エクセルの質問です

No3です。

＞解答欄のコメントコピーして実行した結果、エラーが生じました。
No3のコードは直接実行するコードではありません。
設定しておくだけのものです。

設定した状態で、A1セルに 東京 と入力すれば、ご質問のようになります。

右に同じデータがあれば文字色を白にするとか表示形式で見えなくするなどではダメでしょうか？

こんにちは

マクロを利用する一例です。

当該シートのシートタブを右クリックして表示される「コードの表示」を選択し、表示されるエディタのコードペインに以下をコピペしておきます。
これにより、ご質問のような状態になると思います。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
If Cells(1, 1).Text = "東京" Then
Cells(1, 1).Clear
Cells(1, 2).Value = "東京"
End If
End Sub

「A1が東京であれば、B1を東京としてその後、元のA1を空白にする」でしょうか？

これは無理なのです。
　
A1が空白になった時点で、B1も空白になってしまいます。

自分なら、該当するセルのある行だけを表示させて、

A列のセルをまとめてB列に移動させます。

A列にオートフィルタを適用しましょう。