اريد حماية خلايا مع وجود كود ترحيل فى الشيت

Sub save()

'

' save Macro

' save

'

    Sheets("ملخص مبيعات").Select

    Range("A6:I12").Select

Sheets("ملخص مبيعات").Unprotect

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Sheets("فاتورة").Select

    Range("I8:Q14").Select

    Selection.Copy

    Sheets("ملخص مبيعات").Select

    Range("A6").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets(فاتورة").Select

    ActiveWindow.SmallScroll ToRight:=5

    Range("C8:C12").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    Range("E8:E12").Select

    Selection.ClearContents

    Range("G13").Select

    Selection.ClearContents

    Range("D4:G4").Select

    Selection.ClearContents

    Range("D5:G5").Select



   Sheets("ملخص مبيعات").Protect

  Selection.ClearContents

End Sub