Worksheet_Change event: range 100 naambereiken als Target

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrHandler
    Application.EnableEvents = False
    
Dim rnum As Integer

If Not Intersect(Target, Range("afd_1,afd_2,afd_3,afd_4,afd_5,afd_6,afd_7,afd_8,afd_9,afd_10,afd_11,afd_12,afd_13,afd_14,afd_15,afd_16,afd_17,afd_18,afd_19,afd_20,afd_21,afd_22,afd_23,afd_24,afd_25,afd_26,afd_27,afd_28,afd_29,afd_30")) Is Nothing Then
        If Target.Value > 0 Then
            rnum = Target.Row + 1
            If Cells(rnum, 1) <> "" Then
                Rows(rnum).Insert Shift:=xlDown
            End If
        End If
        If Target.Value = 0 Or Target.Value = "" Then
            rnum = Target.Row + 1
            If Cells(rnum, 1) = "" Then
                Rows(rnum).Delete Shift:=xlUp
            End If
        End If
End If

   
Letscontinue:
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    Resume Letscontinue
End Sub

For x = 1 To 100
If Not Intersect(Target, Range("afd_" & x)) Is Nothing Then
        If Target.Value > 0 Then
            rnum = Target.Row + 1
            If Cells(rnum, 1) <> "" Then
                Rows(rnum).Insert Shift:=xlDown
            End If
        End If
        If Target.Value = 0 Or Target.Value = "" Then
            rnum = Target.Row + 1
            If Cells(rnum, 1) = "" Then
                Rows(rnum).Delete Shift:=xlUp
            End If
        End If
End If
Next x