Copy range and paste underneath "x" amount of times based on cell value

[BJH1995]

Hi All,

Some assistance if possible,

I would like to copy a dynamic range of data starting in cell "i15" and paste underneath this range the amount of times specified in cell "A17". if anyone can help?

Thanks,

 

[Fluff]

Do you want to copy/paste I15 to the last row with data in col I?

 

[Joe4]

Try this:

    Range("I15").Copy Range("I16:I" & Range("A17").Value + 15)

 

[BJH1995]

Apologies if i haven't explained properly.

The range of data i have currently is within the range "I15:I20" but this will need to be dynamic as the range changes but will always start in cell "I15"

I would like to copy this range and paste underneath in the next blank cell, the amount of times which is stated within cell "A17"

If this still doesn't explain well i will upload an image.

Thanks,

 

[Joe4]

I think I would like to see a before/after picture.

 

[BJH1995]

Hope this explains better.

 

[Fluff]

How about

Sub BJH()
   With Range("I15", Range("I" & Rows.count).End(xlUp))
      .Copy .Offset(.count).Resize(.count * Range("A17"))
   End With
End Sub

 

[BJH1995]

Thank you both for your time, works perfect.

 

[Fluff]

Glad we could help & thanks for the feedback.