Adding numbers from an array into a single cell

For the data provided.

Sub test()
    Dim r As Range
    With Sheets("sheet1")
        For Each r In .Columns("e").SpecialCells(2, 1).Areas
            With r.CurrentRegion
                .Offset(2, 3).Resize(, .Columns.Count - 3).Rows(.Rows.Count).FormulaR1C1 = "=product(r" & r.Row & "c:r[-2]c)"
            End With
        Next
    End With
End Sub