code to auto fill rows determined by cell ref

[redspanna]

Hi all

I have been helped with following code to place a formula into certain cell

Sub fillformula()
Dim lr As Long
lr = Cells(Rows.Count, "G").End(xlUp).Row + 1
Range("G" & lr).Formula = "=SUMPRODUCT(--(ABS(F$" & lr & ":F$" & lr + Range("A3").Value & ")>ABS(F" & lr & ")))+1"
End Sub

how can I extend the code so that the formula is autofilled 'x' number of rows down , where 'x' is the number found in cell ref A3


thanks in advance

 

[ravishankar]

Sub fillformula()
Dim lr As Long
lr = Cells(Rows.Count, "G").End(xlUp).Row + 1
Range("G" & lr & ":G" & lr + Cells(3, 1)).Formula = "=SUMPRODUCT(--(ABS(F$" & lr & ":F$" & lr + Range("A3").Value & ")>ABS(F" & lr & ")))+1"
MsgBox " OK"
End Sub

ravishankar