STDEV.P in dynamic range

[sbv1986]

Hi All

I have data in range(Cells(3,"H"),Cells(lrow,lcol))
lrow = lastrow in range
lcol = last columns in range
Now I want to have macro fill fomula in G3 = STDEV.P(range(Cells(3,"G"),Cells(3,lcol))
And then fill down to last row

Please help me, thanks in advance.

 

[GlennUK]

But that formula refers to the cell containing the formula?

 

[sbv1986]

But that formula refers to the cell containing the formula?
I've just find this medthod like this code belove

sub STDEV()
dim lrow, lcol as long
With sheets1
    lRow = .Cells(Rows.Count, 13).End(xlUp).Row 'Last row Column M=20
    lCol = .Cells(1, Columns.Count).End(xlToLeft).Column 'Last column in row 1
    If lCol < 14 Then lCol = 14
        .Range(.Cells(2, "N"), .Cells(lRow, lCol)).Clear
        .Range("I3:L" & lRow).Clear
    .Columns("D:H").ClearContents
    .Columns("M").ClearContents
    .Range("H1:M1").Value = Array("CONFIDENCE", "SUM", "MAX", "MIN", "Average", "STDEV.P")
    .Range("I3:I" & lRow).FormulaR1C1 = "=round(Sum(RC14:RC" & lCol & "),0)"
    .Range("J3:J" & lRow).FormulaR1C1 = "=max(RC14:RC" & lCol & ")"
    .Range("K3:K" & lRow).FormulaR1C1 = "=min(RC14:RC" & lCol & ")"
    .Range("L3:L" & lRow).FormulaR1C1 = "=iferror(AVERAGE(RC14:RC" & lCol & "),0)"
    .Range("M3:M" & lRow).FormulaR1C1 = "=round(STDEV.P(RC14:RC" & lCol & "),0)"
    .Range("H3:H" & lRow).FormulaR1C1 = "=round(CONFIDENCE(0.05,RC13," & lCol - 13 & "),0)"
    .Range("H2", .Cells(lRow, lCol)).Value = .Range("H2", .Cells(lRow, lCol)).Value
    .Range("H2", .Cells(lRow, lCol)).NumberFormat = "#,##0"
    .Rows(1).Font.Bold = True
    With .UsedRange.Borders  '.Range(.Cells(1, 1), .Cells(lRow, lCol - 5)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End With
End sub

 

[GlennUK]

So, this is solved, then?

 

[sbv1986]

Yes, but Apter found this code, I think have another method better