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?