Dim rng as Range
set rng = Range("PriorPTT")
set rng = rng.rows(rng.rows.count)
rng.EntireRow.Insert

--
Regards,
Tom Ogilvy



"Mark Williams" wrote in message
...
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