Joined Two Codes but second one in not working

I Joined to Separate Codes, but first is working and second one is triggering...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.count > 1 Then Exit Sub
If Target = "" Then Exit Sub

If Not Intersect(Target, Range("C4:C53")) Is Nothing Then
Dim v1 As Variant, sRef1 As String, NewEntry1 As Variant
    
NewEntry1 = "": NewEntry1 = Target
    
   With ThisWorkbook.Names("NAME_SID9")
        If WorksheetFunction.CountIf(.RefersToRange, NewEntry1) = 0 Then
            sRef1 = Mid(.RefersTo, 2, 6 ^ 6)
            v1 = Evaluate("=Lookup(2,1/(" & sRef1 & "<>""""),Row(" & sRef1 & "))-row(" & sRef1 & ")+2")
            v1 = Evaluate(Application.IfError(v1, 1))
            .RefersToRange.Cells(v1) = NewEntry1
            
With Range("C4:C53")
        If Not Intersect(.Cells, Target) Is Nothing Then
            .Sort key1:=.Cells(1), _
                  Order1:=xlAscending, _
                  Header:=xlNo, _
                  OrderCustom:=1, _
                  MatchCase:=False, _
                  Orientation:=xlTopToBottom
        End If
    End With
    
    
        End If
   End With
END IF
END  SUB

and sepratly codes are here

If Target.Cells.count > 1 Then Exit Sub
If Target = "" Then Exit Sub

If Not Intersect(Target, Range("C4:C53")) Is Nothing Then
Dim v1 As Variant, sRef1 As String, NewEntry1 As Variant
    
NewEntry1 = "": NewEntry1 = Target
    
   With ThisWorkbook.Names("NAME_SID9")
        If WorksheetFunction.CountIf(.RefersToRange, NewEntry1) = 0 Then
            sRef1 = Mid(.RefersTo, 2, 6 ^ 6)
            v1 = Evaluate("=Lookup(2,1/(" & sRef1 & "<>""""),Row(" & sRef1 & "))-row(" & sRef1 & ")+2")
            v1 = Evaluate(Application.IfError(v1, 1))
            .RefersToRange.Cells(v1) = NewEntry1

With Range("C4:C53")
        If Not Intersect(.Cells, Target) Is Nothing Then
            .Sort key1:=.Cells(1), _
                  Order1:=xlAscending, _
                  Header:=xlNo, _
                  OrderCustom:=1, _
                  MatchCase:=False, _
                  Orientation:=xlTopToBottom
        End If
    End With