Insert copied row under every row in selection?

[aaron84]

Hello. I have the code below that will insert a blank row under every row in a selection. How can I alter this to behave the same way with a copied row instead of blank? I have a single row that needs to be between hundreds of other rows and manually copying and inserting is taking forever. Helper column helps but is still taking too much time.

Sub Insert()

Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count

For i = 1 To CountRow
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Next i

End Sub

 

[Fluff]

Duplicate to: VBA to insert copied row between range of selected rows.

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.