Excel VBAでコピーアンドペーストする範囲を移動する - excel、vba、excel-vba

データを選択するためのマクロを設定しようとしていますワークシートから（1）、そのデータを別のワークシートに貼り付け（2）、次にワークシートから結果を取り出し（2）、その情報をワークシート（3）に貼り付けます。私が抱えている問題は、ワークシート（1）からコピーするデータの範囲を次のデータセットに移動し、ワークシート（2）から結果をワークシート（3）の最後の結果の下の行に貼り付けることです。

私が試したコードは動かないようです新しいデータをコピーして、ワークシート（2）の式の結果をコピーする前に十分な時間が経過しないようにします。以下は、うまくいかないコードです。

Sub COPY_PASTE_MLR_10()

Application.ScreenUpdating = False

Dim Y As Integer, X As Integer, I As Integer


"COPY DATA TO EQUATIONS

For I = 4 To 255
Y = I
X = I + 10

Sheets("QDATA").Range("G4:G14").COPY _
Destination:=Sheets("R10").Range("A5")

Sheets("QDATA").Range("OI:OI+10").COPY _
Destination:=Sheets("R10").Range("C5")

Sheets("QDATA").Range("WI:WI+10").COPY _
Destination:=Sheets("RLR10").Range("D5")

Sheets("QDATA").Range("AC4:AC14").COPY _
Destination:=Sheets("R10").Range("E5")

Sheets("QDATA").Range("AN4:AN14").COPY _
Destination:=Sheets("R10").Range("F5")

Sheets("QDATA").Range("BA4:BA14").COPY _
Destination:=Sheets("R10").Range("G5")

Sheets("QDATA").Range("BI4:BI14").COPY _
Destination:=Sheets("R10").Range("H5")

Sheets("QDATA").Range("BQ4:BQ4").COPY _
Destination:=Sheets("R10").Range("I5")


"COPY RESULTS TO "10 RESULTS"

Sheets("R10").Range("J5:K5").COPY
Sheets("10 RESULTS").Range("B2:C2").PasteSpecial Paste:=xlPasteValues

Sheets("R10").Range("J6:K6").COPY
Sheets("10 RESULTS").Range("D2:E2").PasteSpecial Paste:=xlPasteValues

Application.ScreenUpdating = True

End Sub

回答：

「ループイテレータ変数がいくつかありますが、正しく使用していません」。これを試して：

For I = 4 To 255
Y = I
X = I + 10

Sheets("QDATA").Range("G" & Y & ":G" & X).COPY _
Destination:=Sheets("R10").Range("A" & Y+1)