VBA初心者の竹庵と申します。
参考書や参考事例等を見ながら下記のような置換ができるVBAを作りたいと思っています。
作り始めたのですが、知識がないもので迷走のスパイラルに入ってしまいました
お助け下さい　　よろしくお願いします


Sheets(入力)シートのD3  D4  D5には、今日の勤務者名が入力されています。
（勤務者名は毎日変わります）

Sheets(1階)シートのD4:D6とH4:H6には　AとBとC という文字が任意に入っています。

Sheets(1階)シートのAには、Sheets(入力)シートのD3の勤務者名を置換したい
Sheets(1階)シートのBには、Sheets(入力)シートのD4の勤務者名を置換したい
Sheets(1階)シートのCには、Sheets(入力)シートのD5の勤務者名を置換したい



Private Sub Worksheet_Activate()
Sheets("1階").Select
    Range("D4:D6,H4:H6").Select

Select Case i
Case “A”
Sheets(1階).Rang(“D3”)

Case “B”
Sheets(1階).Rang(“D4”)

Case “C”
Sheets(1階).Rang(“D5”)


End Else


End Sub

こんな事かな？

Private Sub Worksheet_Activate()
    Dim i As Range
    
    Sheets("1階").Select
    
    For Each i In Range("D4:D6,H4:H6").Cells
        
        Select Case i.Value
            Case "A"
                i.Value = Sheets("入力").Range("D3").Value
            Case "B"
                i.Value = Sheets("入力").Range("D4").Value
            Case "C"
                i.Value = Sheets("入力").Range("D5").Value
        End Select
    Next i
End Sub

※Rangeオブジェクトを格納する変数名が「i」と言うのは余り適切とは言えませんが。

＞変数名「i」よりふさわしい文字は、どんな文字なんでしょうか。

そうですねぇ・・
c、 r、 aCell、rngTarget とかではどうですか（色んな意見があると思います。

iが不適当な理由は、
iは伝統的に、indexの代わりに使われていますので、数値型で使うなら、まぁ他人から抵抗を受けることはないでしょう。

でも、iとかlは、1と見間違い易いから、index代わりとしても不適当と個人的には思っています。 (使うけど)

「見易いコードを書け」と言っている人が、iを使っていた場合、大したことない奴だなと私は思う。
しかも、jとセットで使ったりしていた場合は最悪じゃないですかね。

※でも、数学の世界ではこれらが添え字として無神経に使われている。
  頭がいい人達は何も感じないんですかね？ 不・思・議