Macro/VBA To insert new blank row above the selected row

[genestoy]

I have looked everywhere trying to find a macro or vba that will copy the selected row (wherever that row may be) and place a blank row above it without the contents of the selected row. Can anyone here show me how to do this?
Thanks in advance for any help
Gene

 

[igold]

Hi genestoy,

It is easy enough to have vba insert a row wherever, you would like it to. Out of curiosity, what are you going to do with copied contents of the selected row. Or have you just mis-phrased the question. Additionally, how do you plan to trigger the macro that inserts a row above your selected row.

igold

 

[genestoy]

I have a row that is shaded (in three places on the worksheet) that is also colored and has the letters A, B & C respectively for the three different sections. The rows beneath these three rows are formatted differently with several columns and filled with data. When I need to insert a new row beneath any of these three rows it always inserts the colored row which is not the one I want inserted but the one with the data and then the cells need to end up blank to accept new data. The rest of the rows are fine with the standard Excel "Insert Sheet Rows".
I would like to just use a keyboard shortcut to insert the formatted blank row anywhere in the worksheet, including the top one under the three sections. Hope that makes sense.
Gene

 

[genestoy]

Got it - in case anybody else needs it, inserts a new blank row above the row that is selected/highlighted with the same formatting intact

Sub InsertRowAbove()
    ActiveCell.EntireRow.Select
    Selection.Copy
    Selection.Insert Shift:=xlUp
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub