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