Hello, and thanks to everyone who helps on this forum...I'll get right to it.

This is what I have right now.
A B C D E F G
36201-07 36201 36207 74756 ANNISTON 01 6
35611-14 35611 35614 74768 ATHENS 01 3
36502-04 36502 36504 74769 ATMORE 01 2
36830-49 36830 36849 74772 AUBURN 01 19

What I'm looking to do is insert below the number of rows specified in G.
Can anyone help me out with this?

Thanks,

Insert below WHAT?
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Justin H" wrote in message
...
Hello, and thanks to everyone who helps on this forum...I'll get right to
it.

This is what I have right now.
A B C D E F
G
36201-07 36201 36207 74756 ANNISTON 01 6
35611-14 35611 35614 74768 ATHENS 01 3
36502-04 36502 36504 74769 ATMORE 01 2
36830-49 36830 36849 74772 AUBURN 01 19

What I'm looking to do is insert below the number of rows specified in G.
Can anyone help me out with this?

Thanks,

I want the specified number of rows to be inserted below each line.

Insert x number of empty rows, huh?

Option Explicit
Sub testme()
Dim wks As Worksheet
Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long
Dim HowMany As Variant

Set wks = Worksheets("sheet1")
With wks
FirstRow = 2 'headers in row 1???
LastRow = .Cells(.Rows.Count, "G").End(xlUp).Row

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




Justin H wrote:

Hello, and thanks to everyone who helps on this forum...I'll get right to it.

This is what I have right now.
A B C D E F G
36201-07 36201 36207 74756 ANNISTON 01 6
35611-14 35611 35614 74768 ATHENS 01 3
36502-04 36502 36504 74769 ATMORE 01 2
36830-49 36830 36849 74772 AUBURN 01 19

What I'm looking to do is insert below the number of rows specified in G.
Can anyone help me out with this?

Thanks,

--

Dave Peterson

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!

I don't know how that final HowMany got there!
Remove it so the line looks like:
..Rows(iRow +1).Resize(HowMany).Insert

Justin H wrote:

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

Will do. I thought it looked a little weird, but i just took out the wrong
one. I took out .Resize(HowMany) and left the .Insert HowMany so once this
finally decides to stop running i'll switch it out and hopefully let you know
of the success. Thanks!

"Dave Peterson" wrote:

I don't know how that final HowMany got there!
Remove it so the line looks like:
..Rows(iRow +1).Resize(HowMany).Insert

Justin H wrote:

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

.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!

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!

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