Keep Row Height

[brentjohn]

Greetings,
I am using the following code to copy the last row and insert as a new row. All works good. However, I am needing to maintain the existing last row height. I've tried changing the ".EntireRow.Copy" line of code, but keep getting error messages.

Sub new_Matser_Row()
Dim rActive As Range
Set rActive = ActiveCell
Application.ScreenUpdating = False
With Cells(Rows.Count, "A").End(xlUp)
    .EntireRow.Copy        'I think this is the line that needs to be changed?
    With .Offset(1, 0).EntireRow
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteFormulas
        On Error Resume Next
            .SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
    End With
End With
rActive.Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub