Copy and Paste a number of rows depending on Input Value

[merikev]

Hi,
I have a macro that starts with an inputbox. It asks "how many samples would you like to add?" From the value that is input, I would like to copy a range of rows (that is already on my template) and paste as many times as the inputbox value states .

My Macro has started as

InputNum= Val(InputBox("How many more samples would you like to add?"))
If InputNum = 0 Then Exit Sub
If InputNum >0 Then ................... < this is where I dont know what to write.

Let me know if this needs clarification. Any help would be appreciated.

 

[dispelthemyth]

try something like the below, but you may want to add other tests in, such as is it a number? is it a positive number? etc

Sub test()




InputNum = Val(InputBox("How many more samples would you like to add?"))
If InputNum = 0 Then Exit Sub


For i = 1 To InputNum


'Starts inputting the template data in A1:A5 but as i increase so does the range the template data outputs to
Sheets("Sheet1").Range("A1:A5").Offset((i - 1) * 6, 0).Value = Sheets("Template").Range("A1:A5").Value




Next i


1


End Sub