Copy formula

QuestionEdit

Here's the scenario...

In cell A1 I have a number '20', in B1 there is a formula, Would it be possible to automatically copy the formula in B1 until B20 without me doing it manually?How? The number '20' in A1 is the determinant on how many copy of the formula in B1 I want to have. For example I change the number in A1 to 45, then the formula in B1 will be copied in until B45.

AnswerEdit

Jn

This will do what you asked.

Sub Macro1()

   x = Range("A1").Value
   Range("b1").Copy
   Range("b1").Resize(x, 1).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False

End Sub

I hope it helps get you started; I suspect you will need some error checking and come up with an efficient way to trigger the macro.