Run macro after enter a value in cell within Sub Worksheet_SelectionChange

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("$B$7:$I$1000")) Is Nothing _
    And Target.Count = 1 Then
        If Not Target.Value = vbNullString Then
            Application.EnableEvents = False
            Call Macro1
            Application.EnableEvents = True
        End If
    End If
End Sub

Option Explicit
    
Dim bolWBMissing As Boolean
Dim CL As String, wbk As Workbook, Ad As String
Dim NxEmptyRow As Long, ShName As String
    
Private Function GetSourceWB(ByVal WBPath As String, ByVal WBName As String, ByRef WB As Workbook) As Boolean
    
    On Error Resume Next
    Set WB = Workbooks(WBName)
    On Error GoTo 0
    
    If WB Is Nothing Then
        If Not Right(WBPath, 1) = Application.PathSeparator Then
            WBPath = WBPath & Application.PathSeparator
        End If
        Set WB = Workbooks.Open(WBPath & WBName)
    End If
    
    If Not WB Is Nothing Then
        Set wbk = WB
        GetSourceWB = True
    End If
End Function
    
Private Sub Worksheet_Activate()
    
    If wbk Is Nothing Then
        If Not GetSourceWB(ThisWorkbook.Path & "\", "Summary_File.xls", wbk) Then
            
            MsgBox "I was unable to return the source workbook, so I" & vbCrLf & _
                   "won't update when a cell is changed...", _
                   vbInformation Or vbOKOnly, vbNullString
            bolWBMissing = True
        End If
    End If
End Sub
    
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet, rng As Range
    
    If wbk Is Nothing Then Call Worksheet_Activate
    
    If Not bolWBMissing _
    And Not Intersect(Target, Range("B7:I1000")) Is Nothing _
    And Target.Count = 1 Then
        
        On Error Resume Next
        Set wks = wbk.Worksheets(Cells(Target.Row, 2).Value)
        On Error GoTo 0
        
        If wks Is Nothing Then
            MsgBox """" & Cells(Target.Row, 2).Value & """ does not exist!", vbCritical, vbNullString
            GoTo BailOut
        End If
        
        wks.Cells(wks.Cells(wks.Rows.Count, "A").End(xlUp).Offset(1).Row, Target.Column).Value = Target.Value
    End If
BailOut:
End Sub

If Target.Column <> 2 Then
    wks.Cells(wks.Cells(wks.Rows.Count, "A").End(xlUp).Offset(1).Row, Target.Column).Value = Target.Value
   End If