Repeat a formula from cell above a finite number of times to the cells below in a column

**alsers** · 04-04-2013, 04:18 PM

Can someone help please. I want to repeat the formula from the cell above to the cells below in a row a number of times. The number of times the formula has to be repeated will come from another cell - say in my case its cell G24 with the number 10 in that cell. I therefore need to do this repeat formula 10-1 times. Thanks Alsers

**kbkumar** · 04-04-2013, 05:29 PM

Hi - Perhaps this is what you are looking for:

Sub Test()
Dim i As Integer
i = Range("G24").Value 'Cell Reference where the loop is defined as per OP
Range("C3").Select 'Assuming the formula you want to copy down is in Cell C3, Change this as per your needs
Selection.Copy
Range(Selection, Selection.Offset(i - 1, 0)).Select 'Repeats down the formula based on loop defined in cell G24 and subtracts 1
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Hope this helps...