What's in the cell that causes the line to fail?

Maybe...

For iRow = LastRow To FirstRow Step -1
HowMany = .Cells(iRow, "G").Value
If IsNumeric(HowMany) Then
If HowMany 1 Then
.Rows(iRow + 1).Resize(HowMany).Insert
End If
End If
Next iRow



Justin H wrote:

No Go Fellas, I tried Both and I get Run-Time Error 1004: Application-defined
or object-defined error.

"Don Guillett" wrote:

.Rows(iRow +1).Resize(HowMany).Insert HowMany

just change to
.Rows(iRow +1).Resize(HowMany).Insert 'HowMany
or
.Rows(iRow +1).Resize(HowMany).Insert
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Justin H" wrote in message
...
Hey Dave, Thanks for the help.

I copied the code you gave and changed the ("sheet1") to my sheet and I
assume that was all I had to change. You were correct that I do have
headers
in Row 1 so I left FirstRow=2.

Everything else looked right, but when I compiled the code it highlighted
the 3rd to last line.
.Rows(iRow +1).Resize(HowMany).Insert HowMany

I haven't used most of the code before, is this just a () or something
else?

Thanks Again!



--

Dave Peterson