Macro to Insert Copied Rows

[Ashley1432]

Hey All, I'm sure this has been answered 100 times but I can't find anything that is helping me really. I have data in row 23 that I want to copy and paste down X many times based on the number found in cell B15.

Any help is appreciated.

 

[Fluff]

How about

Sub CopyDown()
   With Range("B15")
      Rows(26).Resize(.Value).Insert
      Rows(25).Resize(.Value + 1).FillDown
   End With
End Sub

 

[Joe4]

Fluff, I think you have a small typo in your code. It is row 23 that they want to copy down, so I think your code should be:

Sub CopyDown()
   With Range("B15")
      Rows([COLOR=#ff0000]24[/COLOR]).Resize(.Value).Insert
      Rows([COLOR=#ff0000]23[/COLOR]).Resize(.Value + 1).FillDown
   End With
End Sub

 

[Fluff]

Good spot Joe4, thanks for that

 

[Ashley1432]

That worked. Thanks so much to you both!

 

[Fluff]

Glad we could help & thanks for the feedback