Loop - dynamic arrays - different worksheets

[montecarlo2012]

Hello Everybody. PLEASE, I have two sheets and one dynamic array in each one, what I need is to subtract row by row one from another.
On sheet 1 my array is for example purpose A1:F30, and on sheet 2 B2:G30 [in my workbook each are 6 by 2521 and growing].
this is the macro for better understanding purpose:

Sub Macro1()
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "=RC[-7]-Sheet2!R[1]C[-6]"
    Range("H1").Select
    Selection.AutoFill Destination:=Range("H1:H23"), Type:=xlFillDefault
    Range("H1:H23").Select
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "=RC[-7]-Sheet2!R[1]C[-6]"
    Range("I1").Select
    Selection.AutoFill Destination:=Range("I1:I23"), Type:=xlFillDefault
    Range("I1:I23").Select
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "=RC[-7]-Sheet2!R[1]C[-6]"
    Range("J1").Select
    Selection.AutoFill Destination:=Range("J1:J23"), Type:=xlFillDefault
    Range("J1:J23").Select
End Sub

Really appreciate the time you've taken out of your schedule to help me.

 

[pgc01]

3 - the result table starts at Sheet2!H1

As you can see in the code this is a typo, I meant the the result table starts at Sheet2!I1

 

[montecarlo2012]

Sorry, but there are any few steps to UPLOAD my workbook here. I tried and nothing.

 

[montecarlo2012]

Thank you PGC01 finally I resolved my problem, here you have the code.

Sub addrows()
Dim x As Long
Dim y As Long
    For x = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        For y = 2 To 7
            Sheet2.Cells(x, 8 + y) = Abs(Cells(x, y) - Sheet1.Cells(x, y))
        Next y
    Next x
    
 End Sub