Sub Макрос2()

'Записано макросом. При запуске макроса - работает
    ActiveSheet.Range("$B$23:$F$500").AutoFilter Field:=2, Criteria1:=Array( _
        "Зав.секцией", "кассир", "Кассир ТЗ"), Operator:=xlFilterValues
'Заменил условия отбора и опробовал код. Не работает
    ActiveSheet.Range("$B$23:$F$500").AutoFilter Field:=2, Criteria1:=Array( _
        "РОП", "МКО2К", "менеджер дизайн студии", "МКО1К"), Operator:=xlFilterValues
End Sub

Private Sub CommandButton1_Click()
End
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Do
Label1 = Format(Date, "dddd, dd mmm yyyy")
Label2 = Format(Time, "hh:mm:ss AM/PM")
Label3.Left = Label3.Left - 2
If Label3.Left <= 0 - Label3.Width Then Label3.Left = Me.Width
For i = 1 To 8000000
Next
DoEvents
Loop
End Sub

            Dim myPhrase As Variant, myCell As Range
            Workbooks(1).Activate
            myPhrase = Range("F4").Value 'Это дата в ячейке
            Workbooks(2).Activate
          
                Set myCell = Range("G2:G1200").Find(myPhrase)
                If Not myCell Is Nothing Then
                    MsgBox myCell.Row 'выводит номер строки, если нашел
                Else
                MsgBox "даты нет!"
                myPhrase = myPhrase + 1
                'Нужно настроить цикл на поиск ближайшей большей даты myPhrase, чтобы возвращал на If
                End If

If ActiveWorkbook./Index/ <> 1 Then
    MsgBox (Space(50) & "ВНИМАНИЕ!" & Chr(13) & Space(5) & "В этой процедуре следует закрыть все предыдущие, ранее открытые файлы Excel.")
Else
    MsgBox ActiveWorkbook.Name
End If

        'ActiveWorkbook.Unprotect Password:="123456" 'Range("AH1").Value ' ЗДЕСЬ РУГАЕТСЯ, ЧТО ПАРОЛЬ НЕ ВЕРНЫЙ
        'ActiveWorkbook.Protect Password:="8888" 'Range("AI1").Value
        
        ThisWorkbook.Unprotect Password:="123456" 'Если пароля нету, то только ThisWorkbook.Unprotect
        'Установка защиты
        ThisWorkbook.Protect Password:="8888"
                
        ActiveWorkbook.Close SaveChanges:=True