How to copy cells and insert cells

[jfisher387]

It's been awhile since I have played with Excel VBA macros. I have spent the majority of my time playing with C# lately and I am having trouble recalling how to do somethings.
I want to copy a range of cells on another sheet, and insert that range to my active sheet. a certain number of times (based on integer in a cell)

Sub ItemQty()
'
'Quotes
'
Dim ItemQty As Integer
Dim SubItemQty As Integer

ItemQty = ThisWorkbook.Worksheets("Quote Sheet").Range("K1").Value

For i = 1 To ItemQty
    Sheets("TemplateGrid").Range("A1:K12").Copy
    Sheets("Quote Sheet").Range("A16").Insert Shift:=xlDown
    Application.CutCopyMode = False
Next
End Sub

 

[rollis13]

Tested your macro with plain data, works for me; what's your issue ?

 

[jfisher387]

I get Runt-time error '9':
subscript out of range
it then highlights this line

ItemQty = ThisWorkbook.Worksheets("Quote Sheet").Range("K1").Value

 

[jfisher387]

oh. i did not have the macro code in the correct file? i copied my code, right clicked the worksheet tab and view code. then pasted and now it appears to work

 

[rollis13]

Glad having been of some help . All you had to do was scrape off a little rust .
By the way, you probably need to mark this thread as [Solved].

 

[jfisher387]

will do. thank you for your help. It got me where i needed to go!