This will work if your spreadsheet if it is not protected, but my sheet is protect. Here is the macro to add and delete a line, but I want to make sure that the selection where they want to insert is not in the protected range. here is the code:
ActiveSheet.Unprotect Password:="test"
ActiveWorkbook.Sheets("worksheet"

.Select
Set currentcell = ActiveSheet.Range("1:13"

Do While ActiveCell.Select <> currentcell
If ActiveCell.EntireRow.Select = True Then
Selection.Copy
ActiveCell.Insert (xlDown)
Application.CutCopyMode = False
ActiveCell.Select
ActiveCell.Offset(1, 0).value = ""
ActiveCell.Offset(1, 1).value = ""
ActiveCell.Offset(1, 2).value = ""
ActiveCell.Offset(1, 3).value = ""
ActiveCell.Offset(1, 4).value = ""
ActiveCell.Offset(1, 5).value = ""
ActiveCell.Offset(1, 11).value = ""
End If
Loop
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"