Insert Rows

M

mem

I have an outline worksheet that I imported from Access. I would like it to
fill in three more rows after every blank row. Is there a way I can do this?
 
D

DILipandey

Hi Mem,
Use the following code:-

Sub t()
Cells(1, 1).Select
Selection.End(xlDown).Select
While ActiveCell.Offset(1, 0).Value = ""
ActiveCell.Offset(1, 0).EntireRow.Select
Selection.Insert
Selection.Insert
Selection.Insert
Selection.End(xlDown).Select
Wend
End Sub

Thanks & Regards,
--
Dilip Kumar Pandey
MBA, BCA, B.Com(Hons.)
[email protected]
[email protected]
New Delhi, India
 
M

mem

Thanks. it works but in the wrong part. I want it to insert the rows in the
end of the section. For example I have a supplier and they have a few rows
of information and at the end they have a blank row. i would like to insert
the 3 new blank rows after this one. Currently it is adding them in the
beginning under the supplier.
 
Top