VBA to insert row and copy formating from above

[luvmyfam]

Hi!

I am trying to figure out the code that will copy the contents and formatting from the row above a selected cell. I have already figured out how to insert the row, but I can't get it to copy the formatting... can anyone help me?

Here is what I have so far...

Sub Insert()
Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Thanks
Randi

[luvmyfam]

figured it out from another forum!

Sub AddRow()
Dim rng As Range
Set rng = Selection
Selection.EntireRow.Insert
Selection.Offset(-1, 0).EntireRow.Copy
Selection.EntireRow.PasteSpecial (xlFormats)
Application.CutCopyMode = False
rng.Select
End Sub