alternaterows

'*******************************************************************************
' This code will insert a row after every row in the selection
'       --Note: can modify for every column instead of row
'                           ~ AJ Javadi ~
'*******************************************************************************

Option Explicit

Sub InsrtAlternateRows()

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