Private Sub CommandButton1_Click()
Dim loLetzte As Long
With Worksheets("Vorschlag V+V")
.Unprotect Password:="verpack21"
loLetzte = .Cells(.Rows.Count, "D").End(xlUp).Row
.Rows(loLetzte).Copy
.Rows(loLetzte).Offset(1).Insert
.Rows(loLetzte).Offset(1).ClearContents
.Protect Password:="verpack21", AllowSorting:=True
End With