Macro to paste multiple times based on user input

[liddy4879]

Hello! I am looking to have a macro that will copy a selection of cells (A12-G13) that are serving as a template and paste it multiple times below and the number of times it is pasted is based on a user input that would be promped in an input box when the macro is started?

 

[Joe4]

Welcome to the Board!

Try this:

Sub MyCopy()

    Dim c As Integer
    Dim e As Integer
    
'   Prompt user for how many times they would like to copy
    c = InputBox("How many copies would you like to make?")
    
'   Calculate ending row
    e = (c * 2) + 13
    
'   Copy from A12:G13
    Range("A12:G13").Copy Range("A14:A" & e)
    
End Sub

 

[liddy4879]

Welcome to the Board!

Try this:

Sub MyCopy()

    Dim c As Integer
    Dim e As Integer
   
'   Prompt user for how many times they would like to copy
    c = InputBox("How many copies would you like to make?")
   
'   Calculate ending row
    e = (c * 2) + 13
   
'   Copy from A12:G13
    Range("A12:G13").Copy Range("A14:A" & e)
   
End Sub

Thank you, this works great!

 

[Joe4]

You are welcome.
Glad I was able to help.

 

[Samhill62]

Hi Joe, Thanks for the speedy response. Unfortunately this does not work for me.
Attached is what I am trying to accomplish. Enter a number in F1 (x) and range A2:D2 is duplicated (x) times