How to create new row after every alternate Row

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....????

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

Code:

---

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

---

Try this one :

Code:

---

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

---

Code:

---

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.