You are correct there is nno relationship right
now....this is what I am trying to do...relate the
two....and yes it is a command button on a user form that
pops up a box asking to enter the number of rows...I want
to use the form to input a number of rows and ..using the
what I call results code...to do this....insert lets say 5
rows, and copy the formulas from down the row above into
the newly inserted rows specified from specified columns (
b thur G) and then (H thur AP).....


-----Original Message-----
In response to a previous post (quite a while ago), I
provided code that
does this. So it is unclear why you are struggling.

there is no relationship between the two sets of code you
show now. Your
first offering appears to be a commandbutton on a
userform rather than an
inputbox as you say.

Your second offering (which is the basic code modifed by
you and which I
then modified in response to your previous posting) isn't
called by that
sub, so it is unclear by what you mean by results code.

--
Regards,
Tom Ogilvy

"Struggling Hard!!"
wrote in message
...
Hello,

Okay I have an inout box that ask how many rows do you
want to insert...I am trying to combine these two codes
to
bring me back the correct results...can someone please
point help me...have been workingon this for the past
two
hours with no luck...below are the two codes

This is the input box code:

Private Sub cbutInsert_Click()
ORIGSHT = ActiveSheet.Name
ORIGROW = ActiveCell.Row
ORIGADR = ActiveCell.Address
ORIGCOL = Replace(Replace(ORIGADDR, "$", "", 1),
CMNDROW, "", 1)

If TextBox1.Value < "" Then
ActiveCell.Resize(TextBox1.Value,
1).EntireRow.Insert
Else
ActiveCell.Resize(1, 1).EntireRow.Insert
End If
Unload Me
End Sub

This is the results code:

Sub insertrowswithformulas()
With ActiveCell
.EntireRow.Insert
Range(Cells(.Row - 2, "I"), Cells(.Row - 2, "AP")).Copy_
Cells(.Row - 1, "I"))
Range(Cells(.Row - 2, "B"), Cells(.Row - 2, "G")).Copy_
Cells(.Row - 1, "B"))

End With
End Sub


.