如何基于For语句将单元格范围复制到另一列

Question

我对VBA很陌生，我正在尝试将工作表第一栏中的日期范围复制到另一栏中。我使用的是For命令，因此实际出现的日期数可以根据不同单元格中的输入进行更改。

这是我到目前为止所拥有的：

Sub Plus1_ForLoop()

Range("G:G").ClearContents

Dim num_months As Integer

num_months = Cells(3, 8) * 12 - 1

For i = 3 To WorksheetFunction.CountA(Range("F3:F1113")) - (num_months - 2)

    Cells(i, 7).Formula = "=product(F" & i & ":F" & i + num_months & ")^(1/" & Cells(3, 8) & ")-1"

Next i

For i = 3 To WorksheetFunction.CountA(Range("A3:A1113")) - (num_months - 2)

    Cells(i, 9) = Range("A & i & :A & i + num_months & ")

Next i

End Sub

我的问题是关于第二个For代码。我知道我在解释方面做得很糟糕，但是我对任何指示都表示感谢。