Sub insertafila()
ActiveSheet.Unprotect
Dim fila As Integer
fila = ActiveCell.Row
Rows(fila).Insert Shift:=xlDown
Rows(fila).Copy
Rows(fila).PasteSpecial Paste:=xlPasteAll
Range("f" & (fila + 1)).Clear
Range("J" & (fila + 1)).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub insertafila()
ActiveSheet.Unprotect
Dim fila As Integer
fila = ActiveCell.Row
Rows(fila).Insert Shift:=xlDown
Rows(fila + 1).Copy
Rows(fila).PasteSpecial Paste:=xlPasteAll
Range("f" & (fila + 1)).Clear
Range("J" & (fila + 1)).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Range("f" & (fila + 1)).Clear
Range("J" & (fila + 1)).Select