Trying to multiply numbers in a column by numbers previously calculated in another column down to Last Row

[Bobaree]

Can anyone tell me why I'm getting an answer of #Value! to the code below? In a previous Sub, I have converted the formulas to values. Now I'm trying to multiply by 30 in one case and 10 in the second case. Thank everyone in advance for your incredible help.

Sub Multiplier_for_Big_Safe_Dividends()
'Does the weighting of each of the ratios in the six columns
Dim Multipliers As Range
Dim Cell As Range
Set Multipliers = Columns("Q").SpecialCells(xlCellTypeConstants, xlNumbers)
For Each Cell In Multipliers
Cell.Offset(0, -10).Formula = "=30*(" & Multipliers.Address & "," & Cell.Address(False, False) & ")"
Next Cell
Set Multipliers = Columns("R").SpecialCells(xlCellTypeConstants, xlNumbers)
For Each Cell In Multipliers
Cell.Offset(0, -10).Formula = "=10*(" & Multipliers.Address & "," & Cell.Address(False, False) & ")"
Next Cell
End Sub

 

[JLGWhiz]

The formula that you are trying to post is essentially the same as:

=30*(Q2:Q10,Q2)

Which won't work. I think all you really want is

Cell.Offset(0, -10).Formula = "=30*" & Cell.Address(False, False)

and same for the =10* line.