Excel Shift Entire Row Down VBA

[Dragonruler12]

That slice of heaven below works almost where I want it to however the ActiveCell.Insert Shift:= xlDown part it can literally infinitly loop till it gets tothe bottom of the page. What I want to do overall is when it gets to the ActiveCell or empty row it will shift the row down before adding the new name to the list to be sorted alphabetically. I have San Juan part becuase There is a space between "Sections" one Philadelphia/San juan/ locations so at the end of one section I want someone to enter a name that will get added to an employee list "above the space" so thus making sure that space always exists so nothing is ever written over.

That is where the problem occurs Shift :=xlDown sucks. Everything else I want it to do works. I just need it to shift the row down where the active cell is.

Please Login or Register  to view this content.

[mrice]

It might be that the shift is itself firing another run of the worksheet_change macro.

You could try putting

Please Login or Register  to view this content.

at the start of the proceedure

and

Please Login or Register  to view this content.

at the end to make the code behave more cleanly.