VBA blokering mod sletning

Hejsa,

Jeg vil gerne lave en blokering mod at slette rækker uden for et område.
Det virker fint opad, med dette: If Selection.Rows.Count = 1 And r > 4 Then

Men jeg har så nogle rækker der bliver slettet og nye indsat, så de rækker som jeg gerne vil have beskyttet mod sletning varierer.
Hvis jeg nu i kolonne A har skrevet MIS i cellerne i de rækker der ikke må slettes, hvad skal jeg så tilføje i nedenstående for at lave en blokering?
Har søgt på nettet, men er i tvivl om hvad jeg skal søge efter og syntes det jeg finder ikke passer ind i det jeg mangler.

Sub Slet_markeret_række()
'

Application.ScreenUpdating = False

    Sheets("Ressourcer motor").Unprotect "1123"
    Sheets("Stål afdeling").Unprotect "1123"
    Sheets("Maler afdeling").Unprotect "1123"
Worksheets("Ressourcer Motor").Select
r = Selection.Row

If Selection.Rows.Count = 1 And r > 4 Then
Selection.EntireRow.Delete
Worksheets("Stål afdeling").Rows(r).EntireRow.Delete
Worksheets("Maler afdeling").Rows(r).EntireRow.Delete
Else
MsgBox ("Marker kun en linje ad gangen til sletning")
End If

Sheets("Ressourcer motor").Protect
Sheets("Stål afdeling").Protect "1123"
Sheets("Maler afdeling").Protect "1123"
Application.ScreenUpdating = True

End Sub