VBA：動的範囲のループを使用した水平および垂直移動

Question

D3：D12と言う列の10個のエントリの平均または合計または標準偏差または..を計算し、行をZ列まで入力する必要があります。 enter image description here

パート1： -

Sub hg() 
Dim i As Long 
Range("D13").Select 
Do Until i = 20 
i = i + 1 
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)" 
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select 
Loop 
End Sub 

この私がコード化されてきました。サイドの方法をドラッグするのは簡単な方法はありますか？

28行目、43行目の&で15行の違いがあるので、これをもう一度やり直す必要があります。

私は パート2を追加していると考えることができます： -

28行に指示するが、この行に沿って移入するために機能していない

Sub hg() 
Dim i As Long 
Range("D13").Select 
Do Until i = 20 
i = i + 1 
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)" 
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select 
Loop 
Cells(ActiveCell.Row + 15, ActiveCell.Column - 20).Select 
End Sub 

。私は垂直移動を指示することができません。

私は深刻なコーダーではなく、学ぶことに非常に興味があります。垂直方向に配置するのを手伝ってください。オフセット

を使用でき

Answer 1

（）と私は今、成功し使用していたループ反復ごと

Sub hg() 
    Dim i As Long`enter code here` 

    For i = 13 To 43 Step 15 '<--| change 43 to your actual last row to populate with formula 
     Range("D1:Z1").Offset(i-1).FormulaR1C1 = "=AVERAGE(R[-10]C:R[-1]C)" 
    Next 
End Sub