Hoe kan ik deze code variable maken voor verschillende rijnummers

[BennyBang]

Ik denk dat dit een eenvoudige oplossing heeft maar het lukt me niet.
Hoe kan ik de volgende code variabel maken zonder dat ik iedere keer alle rijnummers moet aanpassen.

In deze regel is de variabele regel 31

If Not Intersect(Target, Range("E31:N31")) Is Nothing Then
      Range("E31:N31") = ""
      If Target.Address = "$E$31" Then Target.Value = 1 Else If Target.Address = "$F$31" Then Target.Value = 2 Else If Target.Address = "$G$31" Then Target.Value = 3 Else If Target.Address = "$H$31" Then Target.Value = 4 Else If Target.Address = "$I$31" Then Target.Value = 5 Else If Target.Address = "$J$31" Then Target.Value = 6 Else If Target.Address = "$K$31" Then Target.Value = 7 Else If Target.Address = "$L$31" Then Target.Value = 8 Else If Target.Address = "$M$31" Then Target.Value = 9 Else If Target.Address = "$N$31" Then Target.Value = 10
      Cancel = True
End If

 

[Cobbe]

Deze is voldoende om dit te tackelen:

If Not Intersect(Target, Range("E:N")) Is Nothing Then
   Range("E" & Target.Row & ":N" & Target.Row) = ""
     Target.Value = Target.Column - 4
       Cancel = True
End If

 

[BennyBang]

Super bedankt Cobbe, deze werkt super. :thumb: