Cell Select - Delete Entire Row

Hi, the simple following code allows me to delete items in a protected sheet. However what I want it to do is delete the entire row, as shifting the cells up causes problems with formulas moving. I am unable to select the row as I have protected against users being able to select locked cells. Is there anyway to adapt the code to "selection, delete entire row.?

Thanks
Chris

Sub Macro7()
'
' Macro7 Macro
'

'
    ActiveSheet.Unprotect "password"
    
    Selection.Delete Shift:=xlUp
    ActiveSheet.Protect "password", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

Does this help?

Sub a()
ActiveSheet.Unprotect "password"
Selection.EntireRow.Delete
End Sub

Yes,

To delete the selected rows, plus the next 10 rows:

Selection.Resize(Selection.Rows.Count + 10, Selection.Columns.Count).EntireRow.Delete