Insert A Row
 

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

Insert A Row
 

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

Insert A Row
 

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

Insert A Row
 

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

Insert A Row
 

Tom, Please ignore my previous post. The error was due to incorrect
spelling. Thanks for your help.

Gary, Thank you as well for your time. Its greatly appreciated.

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