How to create new row after every alternate Row

[Ralph Lauren]

I have made a spreadsheet that has near around 900 rows in it. But now i want a new row in between every Row...! inserting each & every seperately will be waste of time. so i want a simple solution to do this.......

Can anyone help with this....????

[chroma]

Auto Linked keywords will cause extra spaces before keywords. Extra spacing is NOT transferred when copy/pasting, but IS if the keyword uses "quotes".

Sub test() 
Dim rng As Range
Dim LastRow As Long 
Dim I As Long


LastRow = Range("B65536").End(xlUp).Row 
For I = 3 To LastRow Step 2 
Set rng = Range("B" & I) 
rng.Insert Shift:=xlToRight
Next I 
End Sub

[Glenny]

Try this one :

Sub InsertRowAfterEveryRowWithEntryInColA()
'It declare your variable "Cell"
Dim Cell As Range
'Set it's start value - this determines what column is checked
Set Cell = Range("A2")
'set a loop endpoint = when it reaches a blank cell
Do Until Cell = ""
'Insert a row
Cell.EntireRow.Insert
'Go to next row
Set Cell = Cell.Offset(1, 0)
'Repeat loop (goes back to the "Do" line
Loop
'Finishes when it reaches 1st blank cell in column A
End Sub

[Raine]

Sub Macro2()
Dim C As Integer

For C = 1 To 18 * 2 Step 2
    Rows(a & ":" & a).Select
    Selection.Insert Shift:=xlDown
Next C
End Sub

It has to be done with a macro the above is the macro for the same.