Excel VBA：如何拉；产品「；向下x行数

我希望能够有一个单元格，显示由多个单元格设置的行范围的乘积。例如，如果在单元格

A1

中我有数字10，并且我的产品范围从

A2

开始，我希望能够计算

产品（A2:A12）但是，如果我将
A1
更改为
20
，则产品现在将拉动
产品（A2:A22）

我已经尝试了一些不同的for和while循环，但我对VBA语法还很陌生

我试过的代码：

Sub ReturnsProduct()
    Dim StartNumber As Single
    Dim i As Integer
    i = Worksheets("Annual Growth").Range("I7")
    Dim cell
    cell = Worksheets("Annual Growth").Range("C12", "C100")
    For cell = 1 To i
    WorksheetFunction.Product (Worksheets("Annual Growth").Range("E12"))
    Next
    Worksheets("Annual Growth").Range("G9").Value = Result
    End Sub

=产品（$A$2:INDEX（$A:$A，A1））
使用代码中的范围：
=产品（$C$12:INDEX（$C:$C，$I$7）+行（$C$12）-1）
非常感谢！