VBA Code to Insert alternate rows in Ms Excel | Macro Code to Insert alternate rows in Ms Excel

VBA Code to Insert alternate rows in Ms Excel | Macro Code to Insert alternate rows in Ms Excel 

1. Open active excel sheet 

2. Press Alt + F11 and Visual Basic Application window will open.

3. Go to Insert Menu and select new Module.

4. In new Module insert the below VBA Code and save it.

5. Before do the above process, excel sheet must save as Macro-Enabled.

6. To do Macro Enabled, open Excel Sheet and Click on the Office Button which is at left top corner on excel sheet.

7.  Select Save as and again select Macro Enabled Worksheet and then save it.

Sub InsertAlternateRows()

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.EntireRow.Insert

ActiveCell.Offset(2, 0).Select

Next i

End Sub