Need Fixed column value in FormulaR1C1

[hasu303]

>>> use code - tags <<<

Dim lastRow As Long
        Dim i As Long

        lastRow = WBJC.Worksheets("SAMPLE").Range("A" & Rows.Count).End(xlUp).Row
            For i = 2 To lastRow

                If WBJC.Worksheets("SAMPLE").Range("A" & i).Value = "Physical" Then
                  'WBJC.Worksheets("SAMPLE").Range("B" & i).Value = "=RC[5]* 1865"
             End If
            Next i

i Need fixed column value which is in ("B2") Rs. 1865

 

[Debaser]

That would cause a circular reference since the first cell you put the formula in is B2.

 

[p45cal]

Fixed column G, as in $G?
Then:

Range("B" & i).FormulaR1C1 = "=RC7* 1865"