Blank Rows

A

Acesmith

I am trying to enter a blank row inbetween every row that is in a worksheet
and I can't figure out a way to do it. I am going to be merging this
information and when I merge it without blank rows, it does not pull all of
the rows. Please help with any information you may have.
 
R

Ron de Bruin

Hi Acesmith

You can use a macro

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim rng As Range
numRows = 1
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.Count To 1 Step -1
rng.Rows(R + 1).Resize(numRows).EntireRow.insert
Next R
Application.ScreenUpdating = True
End Sub
 
Top