Help- Code to copy specific row and insert above current row/cell

[LoDe]

I have been trying to locate code that will
1. Copy a specific row (always the same row, never changes)
2. Paste that row with formats in the row above the current cell.

Any help would be greatly appreciated, I know my way around VBA a bit but usually manage by taking parts of code I find in my travels.

Thanks

[Kelshaer]

do you want to insert a new row above the active cell or just paste the copied row to the already existing row above?

[Kelshaer]

This will insert a new row above the active cell:

Please Login or Register  to view this content.

And This will copy row 1 for example to the one above the active cell

Please Login or Register  to view this content.

[LoDe]

Insert it.

[Kelshaer]

Use this:

Please Login or Register  to view this content.

[LoDe]

Thanks Khaled

The macro seems to be inserting the row but not how i had hoped. If i have data on three rows:
100
200
300

and run the macro with 200 selected i get:
Inserted Row
Blank Row
200
300

[Kelshaer]

Sorry. Try this.

Please Login or Register  to view this content.

[LoDe]

Thank you! Problem Solved!

[LoDe]

Almost...


In the real worksheet many of the fields are locked so I get an error. It looks like i need to Unprotect Sheet with "password" perform the above macro and then Protect Sheet with "password"

[Kelshaer]

Here you Go:

Please Login or Register  to view this content.