ws.Range("$A$1:$AP$2088").AutoFilter Field:=2, Operator:= _
                            xlFilterValues, Criteria2:=Array(2, "7/20/2018", 2, "7/21/2018", 2, "7/22/2018", 2, _
                            "7/23/2018", 2, "7/24/2018", 2, "7/25/2018", 2, "7/26/2018")

ws.Range("$A$1:$AP$2088").AutoFilter Field:=2, Operator:= _
                            xlFilterValues, Criteria2:=Arr_date

Application.ChartsItem(1).Chart.ChartTitle.Caption

arr_holiday = Worksheets("Êàëåíäàðü").Range(Cells(3, t), Cells(old_cell, t)).Value

Workbooks.Open Filename:=Path

Private Sub Workbook_Open()
    Dim oReferences As Object, oRef As Object
    Set oReferences = ThisWorkbook.VBProject.References
    For Each oRef In oReferences
        If (oRef.IsBroken) Then oReferences.Remove Reference:=oRef
    Next
End Sub

    If Day > Day_end Then
            MsgBox "Неверные даты"
        Else:
            If Day_end - Day + 1 > 31 Then
                MsgBox "Выберите правильный период табелирования"
                UserForm4.Hide
                Exit Sub
                Else: Count_Day = Day_end - Day + 1
            End If
    End If

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)     If Target.Cells.Count > 1 Then Exit Sub
     If Not Application.Intersect(Worksheets("Òàáåëü").Range("D4"), Target) Is Nothing Then
         UserForm1.Show
     End If
     
          If Target.Cells.Count > 1 Then Exit Sub
     If Not Application.Intersect(Worksheets("Òàáåëü").Range("F4"), Target) Is Nothing Then
         UserForm1.Show
     End IfEnd Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    Worksheets("Òàáåëü").Range("D4").Value = DateClicked
    UserForm1.Hide
End Sub

Application.WorksheetFunction.CountIf(Sheets(File_Name).Range("G:G"), "1")

Sub AllListSotr() 

   lLastRow = Cells.SpecialCells(xlLastCell).Row - 1
    For i = 1 To 12        '   Последняя строка
        lLastRow_this = Worksheets("0").UsedRange.Row + Worksheets("0").UsedRange.Rows.Count        '   Последняя строка
        lLastRow = Worksheets(CStr(i)).UsedRange.Row + Worksheets(CStr(i)).UsedRange.Rows.Count - 1 
        Worksheets(CStr(i)).Range("A2:A" & lLastRow).Copy
        Worksheets("0").Range("A" & lLastRow_this).PasteSpecial Paste:=xlPasteValues 
       
    Next
    
    
    
    '   Удаляем дубликаты
    Worksheets("0").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
    
    '   Сортируем
    ActiveWorkbook.Worksheets("0").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("0").Sort.SortFields.Add Key:=Range("A:A"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("0").Sort
        .SetRange Range("A:A")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Public Sub Chart(arrAll, Mount, Pokazatel)
 
 '  Формируем график с данными из параметров
    For i = 0 To UBound(Pokazatel)
            
                Sheets("Досье").ChartObjects.Add(i * 230, 300, 225, 250).Select
                With ActiveChart()
        
                    .ChartType = xlColumnClustered
                    .HasTitle = True
                    .ChartTitle.Text = Pokazatel(i)
                    .SeriesCollection.NewSeries
                    .SeriesCollection(1).HasDataLabels = True
                    .SeriesCollection(1).XValues = Mount
                    .SeriesCollection(1).Values = arrAll(i)
                    .HasLegend = False
                End With
                
            Next
    
End Sub

Private Sub UserForm_Activate()
    Me.Calendar1.Value = Date
End Sub

Private Sub ComboBox21_Change()
ComboBox21.ListFillRange = Worksheets("0").Range("A1:A252")
End Sub

Sub t()    '   Последняя строка
    
    lLastRow_this = Worksheets("0").UsedRange.Row + Worksheets("0").UsedRange.Rows.Count - 1
  
    For i = 1 To 12
         
        '   Последняя строка
        lLastRow = Worksheets("i").UsedRange.Row + Worksheets(i).UsedRange.Rows.Count - 1
    
        Worksheets(i).Range("A2:A" & lLastRow).Copy
        Worksheets("0").Range("A" & lLastRow_this).PasteSpecial Paste:=xlPasteValues
    NextEnd Sub