Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Cells.Count > 1 Then Exit Sub 
If Not Intersect(Target, Range("A2:C10")) Is Nothing Then 
Application.EnableEvents = False 
Target.Value = Target.Value & " " & Date 
End If 
Application.EnableEvents = True 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lReply As Long
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("$e$6:$e$2300")) Is Nothing Then
            If IsEmpty(Target) Then Exit Sub
                If WorksheetFunction.CountIf(Range("статья"), Target) = 0 Then
                    lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion)
                        If lReply = vbYes Then
                            Range("статья").Cells(Range("статья").Rows.Count + 1, 1) = Target
                        End If
                End If
        End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lReply As Long
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("$f$6:$f$2300")) Is Nothing Then
            If IsEmpty(Target) Then Exit Sub
                If WorksheetFunction.CountIf(Range("йцук1"), Target) = 0 Then
                    lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список?", vbYesNo + vbQuestion)
                        If lReply = vbYes Then
                            Range("йцук1").Cells(Range("йцук1").Rows.Count + 1, 1) = Target
                        End If
                End If
        End If
End Sub

  Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1 As String, strCri2 As String
    Application.Volatile
    
    With Header.Parent.AutoFilter
        With .Filters(Header.Column - .Range.Column + 1)
        
            If Not .On Then Exit Function
            
                strCri1 = .Criteria1
            If .Operator = xlAnd Then
                strCri2 = " AND " & .Criteria2
            ElseIf .Operator = xlOr Then
                strCri2 = " OR " & .Criteria2
            End If
            
        End With
    End With
        
    AutoFilter_Criteria = strCri1 & strCri2
End Function