Insert A Row Macro

[Mark Williams]

Hi All,

I am trying to write a macro that will insert a row above a blank row in a
range I've named "PriorPTI". The blank row is the last row in a range that
contains 12 rows. The range will grow as I insert more rows. I am not a
programmer so any help will be greatly appreciated as I've spent two work
days trying to figure this out (Yes: it is rocket science ).

Regards,
Mark

 

[Trevor Shuttleworth]

Mark

something like:

Range("PriorPTI").Offset(-1, 0).Resize(1).EntireRow.Insert

will insert 1 row in front of the range called PriorPTI

Regards

Trevor

 

[Duke Carey]

You're always going to want to add a row just above the last row in the named
range, yes?

DIM rng as Range
Set rng = Range("PriorPTI")
rng.Offset(rng.Rows.Count - 1, 0).Resize(1, 1).EntireRow.Insert xlDown