Here is an example using C1 as the number to duplicate the formula:

Sub DupFormula()
Dim i As Long
Dim rng As Range

i = Range("C1").Value 'change to your cell

For i = 1 To i
Set rng = Cells(i + 1, 3) 'reference to your cell
rng.Formula = "=2*3.14*(A1+(B1*" & i & "))/2"
Next
End Sub

Mike F

"enyaw" wrote in message
...
My problem is when i enter a number into a cell i want a formula to be
inserted underneath this cell. The formula will entered that number of
times. My formula is
2*3.14*(A1+B1)/2
This formula is entered in the first cell
The next cell will be
2*3.14*(a1+b1+b1)/2
B1 will be added twice and then in the next cell B1 will be added three
times and so on until the number in that was entered is reached.
Anybody got any ideas?