Try this code where I am copying the contents of B4 on Sheet1 down 10 more
cells below it.
NumberOfCopies = 10
With Worksheets("Sheet1").Range("B4")
.Copy .Offset(1).Resize(NumberOfCopies, 1)
End With
Rick
<(E-Mail Removed)> wrote in message
news:a1e4d5fa-ce43-4635-8d7c-(E-Mail Removed)...
> Hello,
>
> I would appreciate some help with the following.
>
> I am looking for some VBA code that will copy the formula
> in a selected cell and then paste the formula down x number
> of rows.
>
> Thanks,
>
> Steve
|