Sub InsertRowDetailedEstimate()
Dim Clave As String, rng As Range
Dim lngRow As Long
Clave = "test"
Set rng = Selection.EntireRow
Application.ScreenUpdating = False
ActiveSheet.Unprotect Clave
lngRow = ActiveCell.Row
With rng
.Copy
.Offset(.Rows.Count).Insert
With .Offset(.Rows.Count)
On Error Resume Next
.SpecialCells(xlCellTypeConstants).ClearContents
.Cells(1).Select
Application.CutCopyMode = False
On Error GoTo 0
End With
End With
ActiveSheet.Protect Clave, AllowDeletingRows:=True, AllowFormattingColumns:=True, AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True
Application.ScreenUpdating = True
End Sub