Insert copied row at cursor position

[Guest]

Looking to copy a "fixed row" say row 10,000.
Place cursor on row where I want the entry.
Activate Macro, which copies row 10,000, and places it at the current cursor
location.


Sub Set_Up_Line()
' Set_Up_Line Macro
' Keyboard Shortcut: Ctrl+Shift+Z
'
Rows("10000:10000").Select
Application.CutCopyMode = False
Selection.Copy



End Sub

 

[Guest]

Rows(10000).Copy
Selection.Insert Shift:=xlDown

 

[Guest]

Greetings:
Did you have to make it so complex? Its Friday! ( <g> )

Thanks muchly.
Once I moved my copy from row to the TOP of the sheet, it worked as expected.
Have a great week-end.

 

[Guest]

? because when you inserted a row above 10000, 10000 became 10001 and wasn't
fixed any more? <g>