Markierte Zeile kopieren

Sub Zeilenrein()
Dim lngR As Long
Dim i As Integer
ActiveSheet.Unprotect Password:="xxx"
lngR = ActiveCell.Row
Rows(34).Copy
Rows(lngR).Insert
Intersect(Range("A:O,Q:Q,S:W,Y:Y,AA:AF,AH:AH,AJ:AN,AP:AP,AR:AV,AX:AX"), Rows(lngR)). _
ClearContents
ActiveSheet.Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
:=True
End Sub