Ошибка в Worksheet_Change()

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    
    If IsNumeric(Target.Value) And Target.Value <> 0 Then
        If Not Intersect(Target, [a1].CurrentRegion) Is Nothing Then
            
            With Target
                If .Column = 2 Then
                    If .Cells(1, 11) = "3-ôàçíûé" Then .Cells(1, 2) = IrA3(.Value, .Cells(1, 3), .Cells(1, 4), .Cells(1, 5))
                    If .Cells(1, 11) = "1-ôàçíûé" Then .Cells(1, 2) = IrA1(.Value, .Cells(1, 3), .Cells(1, 4), .Cells(1, 5))
                 End If
                           
                If .Column = 3 Then
                    If .Cells(1, 10) = "3-ôàçíûé" Then .Cells(1, 0) = PnomkVt3(.Value, .Cells(1, 2), .Cells(1, 3), .Cells(1, 4))
                    If .Cells(1, 10) = "1-ôàçíûé" Then .Cells(1, 0) = PnomkVt1(.Value, .Cells(1, 2), .Cells(1, 3), .Cells(1, 4))
                    
                End If
                
                If .Column = 4 Then
                    If .Cells(1, 9) = "3-ôàçíûé" Then .Cells(1, 0) = IrA3(.Cells(1, -1), .Cells(1, 1), .Cells(1, 2), .Cells(1, 3))
                    If .Cells(1, 9) = "1-ôàçíûé" Then .Cells(1, 0) = IrA1(.Cells(1, -1), .Cells(1, 1), .Cells(1, 2), .Cells(1, 3))
                End If
                
                If .Column = 5 Then
                    If .Cells(1, 8) = "3-ôàçíûé" Then .Cells(1, -1) = IrA3(.Cells(1, -2), .Cells(1, 0), .Cells(1, 1), .Cells(1, 2))
                    If .Cells(1, 8) = "1-ôàçíûé" Then .Cells(1, -1) = IrA1(.Cells(1, -2), .Cells(1, 0), .Cells(1, 1), .Cells(1, 2))
                End If
                
                If .Column = 6 Then
                    If .Cells(1, 7) = "3-ôàçíûé" Then .Cells(1, -2) = IrA3(.Cells(1, -3), .Cells(1, -1), .Cells(1, 0), .Cells(1, 1))
                    If .Cells(1, 7) = "1-ôàçíûé" Then .Cells(1, -2) = IrA1(.Cells(1, -3), .Cells(1, -1), .Cells(1, 0), .Cells(1, 1))
                End If
                                               
            End With
       End If
    End If
    
    If Not Intersect(Target, [a1].CurrentRegion) Is Nothing Then
        With Target
                If .Column = 12 Then
                    If .Cells(1, 1) = "3-ôàçíûé" Then .Cells(1, -8) = IrA3(.Cells(1, -9), .Cells(1, -7), .Cells(1, -6), .Cells(1, -5))
                    If .Cells(1, 1) = "1-ôàçíûé" Then .Cells(1, -8) = IrA1(.Cells(1, -9), .Cells(1, -7), .Cells(1, -6), .Cells(1, -5))
                End If
        End With
    End If
    
End Sub

If Not Intersect(Target, [a1].CurrentRegion) Is Nothing Then

If Not Intersect(Target, Cells(1, 1).CurrentRegion) Is Nothing Then

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
...
    Application.EnableEvents = True
End Sub

If Target.Count > 1 Then Exit Sub

If IsNumeric(Target.Value) And Target.Value <> 0 Then

for each cc in target.cells
call Worksheet_Change(cc)
next