[エクセルVBA]変数を使って、別シートに値を転記したい

Question

前提・実現したいこと

エクセルVBAを学習している初心者です。
シート4のA4からE4セルの値をシート5のB4からF4セルに転記し、値が入力されている行まで転記を繰り返すプログラムを作っているのですが以下のメッセージが発生しました。

発生している問題・エラーメッセージ

アプリケーション定義またはオブジェクト定義のエラーです。

該当のソースコード

Sub 転記()
    Dim i As Long
    For i = 4 To Sheets("Sheet4").Range("A10000").End(xlUp).Row + 1
　　　 ↓↓黄色線
       Sheets("Sheet5").Range(Cells(i, "B"), Cells(i, "F")).Value = Sheets("Sheet4").Range(Cells(i, "A"), Cells(i, "E")).Value
    　 ↑↑黄色線
　　Next
    
End Sub

試したこと

for文をコメントアウトして、シート４のA1セルの値をシート5のA1セルに転記するプログラムは成功したのですが、変数を使って転記しようとすると上記のエラーが出てしまい、黄色線の中でどこが間違っているのか分かりません。

補足情報（FW/ツールのバージョンなど）

エクセル2016

Answer 1

簡単なのは、

Sheets("Sheet5").Range("B" & i, "F" & i).Value = Sheets("Sheet4").Range("A" & i, "E" & i).Value

とする。

もしくは、Rangeで指定するセルをシート名まできちんと記述する。

Sub 転記()
    Dim i As Long
    Dim moto As Worksheet
    Dim saki As Worksheet
    Set moto = Sheets("Sheet4")
    Set saki = Sheets("Sheet5")

    For i = 4 To moto.Range("A10000").End(xlUp).Row + 1
       saki.Range(saki.Cells(i, "B"), saki.Cells(i, "F")).Value = moto.Range(moto.Cells(i, "A"), moto.Cells(i, "E")).Value
    Next

End Sub

Comments

[murako]

ご回答ありがとうございます。転記することができました。