借助VBA宏将预制模板移动/插入到新范围

Question

I am currently working on a excel-VBA macro that would selected a template, copy it, create extra rows above the selected cell and afterwards paste the template into the added extra rows. So far my code looks like this:

Sub Insert_Another_Good()
    Dim i As Integer
    Dim j As Integer
    ActiveCell.EntireRow.Select
    i = 8
    For j = 1 To i
        Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
    Next: Macro2
    Range("A25:P32").Copy
    Set rng = Range(Selection.Address)
    ActiveSheet.Paste
End Sub

Sub Macro2() 'still part of the same sub'
    Range("A25:P32").Copy
    Set rng = Range(Selection.Address)
    ActiveSheet.Paste
End Sub

This works well for copying the template and pasting it into the new lines but it only pastes starting from the very first, A, column. Could you please help me make it so it pastes the template in lets say column Q? (Bus still the same row as the first line out of new 8 posted)

Hope you understood my weird question ! And thanks for help in advance!

Answer 1

How about instead of inserting empty rows you simply insert the copied range and shift everything down, like so:

Range("A25:P32").Copy
Set Rng = Range(Selection.Address)
Selection.Insert Shift:=xlDown