Condition supprimer ligne

Bonjour

J ai une macro qui permet de supprimer la dernière ligne d un tableau et j aimerai lui mettre une condition du type a partir de la cellule A10 tu ne peux plus supprimer.

Voici mon code

Sub Suppligne_QuandClic()
Dim vnom As String, vrech As Range, derlign As Long
'nom du tableau
vnom = "Nom"
'recherche du nom dans la colonne A
Set vrech = Columns(1).Find(vnom)
'si je trouve le nom alors
If Not vrech Is Nothing Then
'je récupère le n° de ligne de la fin du tableau correspondant
derlign = Range("A" & vrech.Row).End(xlDown).Row + 1
'Supprimer ligne
Range("A" & derlign).EntireRow.Delete
End If
End Sub

Merci