What does this macro code mean?Closed

Question

Hey,

The below macro was posted by another user, aquarelle, and is very useful for inserting copies of rows in an excel sheet. I tried asking them my question directly but haven't received an answer yet. I am trying to understand what the last section of the code does starting at: Range("A1).Select

Here is the code:

Sub InsertRows()
Dim I As Long, J As Integer, Nb As Integer

For I = Range("A65536").End(xlUp).Row To 2 Step -1

Nb = 4

For J = 1 To Nb - 1
Rows(I + J).Insert xlDown
Rows(I).Copy
Rows(I + J).PasteSpecial '
Next

Next

Range("A1").Select
Application.CutCopyMode = False
End Sub

Any help would be much appreciated.
Thanks

Zohaib R · Answer

Hi nbe9,

Please note that Range("A1").Select will take the Cursor to Cell A1 which is the beginning of the sheet. Indeed it is a good practice to place the Cursor at the beginning of the Sheet after the Macro execution has completed that's the reason it has been incorporated in this code.

nbe9 · Answer

Hey Zohaib R,

Thanks that makes perfect sense! Follow up questions:

To make the macro stop at a specific row should I only change the "Row To 2" number?

To make the macro insert a different number of rows should I only change the "Nb = 4" number?

Zohaib R · Answer

Hi nbe9,

Sorry for the delayed response.

Range ("cellNumber") will not stop a Macro from executing. This only takes the Cursor to the specified location and executes operations on that selected range. There are are other ways of stopping a Macro from execution such as using an InputBox to receive user input before executing further or pressing the Esc key (if the code of the Macro is fairly long).

Yes, you can select a range and then perform the insert operation, it will execute on the selected range only.

What does this macro code mean?

3 responses

Similar discussions

Subscribe To Our Newsletter!