That is what is happening now. You are inserting at row 36. If you mean you
want to insert where the original row 36 is NOW then name that cell rtm1
(select cell in name box (left of formula box) type in rtm1. Now use this
change and a row will be inserted wherever that cell is

Sub insertatfixedrow()
'Range("36:36").Select
' Selection.Copy
' Selection.Insert Shift:=xlDown

'use this instead
Range("rtm1").EntireRow.Insert
end sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Shivam.Shah" wrote in message
...
Hi all,

I have 3 buttons in the same worksheet to copy a row and insert the
same below it. I have this macro running for 3 different places. See
my code below.

The problem is:

1) I want just the formulas/formatting to be pasted, and not the
constants.
2) And more importantly, if I use Button 1, then a row is added below
row 15 and the rows move down and so for Button 2, row 36 is different
now as it has moved down, if you understand? How do I keep it fixed
that it always copies row 36 even if a row is added above and the rows
move down. Same for Button 3.


Private Sub CommandButton1_Click()
Range("15:15").Select
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub

Private Sub CommandButton2_Click()
Range("36:36").Select
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub

Private Sub CommandButton3_Click()
Range("41:41").Select
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub