dim c as rang

vUnit = ActiveCel
set c = selectio
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(4, 0))._
EntireRow.Selec
Selection.Insert Shift:=xlDow
c.selec

----- TJ wrote: ----

I use this code to insert 4 blank lines

vUnit = ActiveCel
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(4, 0))._
EntireRow.Selec
Selection.Insert Shift:=xlDow

How do I get the cursor to go back to the activecell? I
can't hard code the cell reference because it will change
throughout the macro. I also tried:"Range(ActiveCell).
_Select" but that did not work.

Thanks for the help..