Insert Rows
 

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?

Insert Rows
 

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


New Delhi, India


"mem" wrote:

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?

Insert Rows
 

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.

"DILipandey" wrote:

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


New Delhi, India


"mem" wrote:

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?