Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim lReply As Long

    If Target.Cells.Count > 1 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    
    If Not Intersect(Target, Range("B2:B2")) Is Nothing Then
        If WorksheetFunction.CountIf(Sheets("CADVALLAR").Range("MALLAR"), Target) = 0 Then
            lReply = MsgBox("Daxil edilmis """ & Target & """ sozu siyahiya alava edilsin?", vbYesNo + vbQuestion)
                If lReply = vbYes Then
                    Sheets("CADVALLAR").Range("MALLAR").Cells(Sheets("CADVALLAR").Range("MALLAR").Rows.Count + 1, 1) = Target
                    MySort Sheets("CADVALLAR").Range("MALLAR").EntireColumn
                End If
        End If
    End If
        
    If Not Intersect(Target, Range("B9:B9")) Is Nothing Then
        If WorksheetFunction.CountIf(Sheets("CADVALLAR").Range("MALSATANLAR"), Target) = 0 Then
            lReply = MsgBox("Daxil edilmis """ & Target & """ sozu siyahiya alava edilsin?", vbYesNo + vbQuestion)
                If lReply = vbYes Then
                    Sheets("CADVALLAR").Range("MALSATANLAR").Cells(Sheets("CADVALLAR").Range("MALSATANLAR").Rows.Count + 1, 1) = Target
                    MySort Sheets("CADVALLAR").Range("MALSATANLAR").EntireColumn
                End If
        End If
    End If
        
End Sub

Private Sub MySort(Col As Range)
    Dim sh As Worksheet
    Set sh = Worksheets("CADVALLAR")
    sh.Sort.SortFields.Clear
    sh.Sort.SortFields.Add Key:=Col, SortOn:=xlSortOnValues, Order:=xlAscending
    With sh.Sort
        .SetRange Col
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

Private Sub MySort(Col As Range)
    Dim Sh As Worksheet
    Application.ScreenUpdating = False
    Set Sh = Worksheets("CADVALLAR")
    Sh.Sort.SortFields.Clear
    Sh.Sort.SortFields.Add Key:=Col, SortOn:=xlSortOnValues, Order:=xlAscending
    With Sh.Sort
        .SetRange Col
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub