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

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

"A good example is twice the value of good advice."


"BEEJAY" wrote:

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

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.


"Charles Chickering" wrote:

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

"A good example is twice the value of good advice."


"BEEJAY" wrote:

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

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

--
Regards,
Tom Ogilvy




"BEEJAY" wrote:

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.


"Charles Chickering" wrote:

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

"A good example is twice the value of good advice."


"BEEJAY" wrote:

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