this might be all you need.

Option Explicit

Dim lastrow As Long

Sub insertrow()
lastrow = Cells(Rows.Count, "A").End(xlUp).offset(1,0).Row
Range("a" & lastrow).EntireRow.Insert


End Sub


--


Gary


"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
>