Inserting at selection

juststo · #1 (**permalink**) 09-23-04, 15:50

I am writing a small macro.

Code:

Sub Macro2()
    Rows("10:13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown
End Sub

Instead of the fifth line where I copy and insert at row 17, how can I insert at whichever row I have selected?

Thanks

savbill · #2 (**permalink**) 09-23-04, 22:08

Code:

 
With your code when you select Rows 10:13
that would change the current selection to rows 10 thru 13.
This example sets a variable 'curRow' to use as the current
selected row and does not select rows in the copy process.
The Insert command is to be applied to row of the current
selected cell or range.


Sub Macro3()
    Rows("10:13").Copy
    curRow = Selection.Row
    Rows(curRow).Insert Shift:=xlDown
    CutCopyMode = False
End Sub

juststo · #3 (**permalink**) 09-24-04, 11:23

Thanks!!! That's it.

Internet Services

Web Development

Digital Marketing

Consumer Tech