Tom/Gary Thanks for your responses. Tom I copied your macro right into vis.
basic and received the following run time error: 1004 Method 'Range' of
object'_Global' failed. I did add Sub insertrow() before the macro and End
Sub at the end.

Thanks for your help.
Regards,
Mark

"Tom Ogilvy" wrote:

> Dim rng as Range
> set rng = Range("PriorPTT")
> set rng = rng.rows(rng.rows.count)
> rng.EntireRow.Insert
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "Mark Williams" <MarkWilliams@discussions.microsoft.com> wrote in message
> news:C7CA84BF-D7D4-4558-94AA-39E1292A87EE@microsoft.com...
> > 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
> >
>
>
>