Sub Filter_Quarter4()
    Dim lo As ListObject
    Dim iCol As Long
    Set lo = Лист3.ListObjects(1)
    iCol = lo.ListColumns("Дата").Index
    lo.AutoFilter.ShowAllData
        With lo.Range
        .AutoFilter Field:=iCol, _
            Criteria1:=">=01.10.2023"
            Operator:=xlAnd, _
            Criteria2:="<=31.12.2023"
        End With
 End Sub

Sub Filter_Quarter4()
    Dim lo As ListObject
    Dim iCol As Long
    Set lo = Лист3.ListObjects(1)
    iCol = lo.ListColumns("Дата").Index
    lo.AutoFilter.ShowAllData
        With lo.Range
         .AutoFilter Field:=iCol, _
            Operator:=xlFilterDynamic, _
            Criteria1:=xlFilterAllDatesInPeriodQuarter4
        End With
 End Sub

If Dir(N_S) = "" Then MsgBox "Файл по пути " & N_S & " не найден": Exit Sub
  If Dir(N_Bes) = "" Then MsgBox "Файл по пути " & N_Bes & " не найден": Exit Sub
  ' сама метка не нужна, а тут код, который должен был следовать за меткой met_:

******************
If Dir(N_S) <> "" Then
GoTo met
 Else
MsgBox "Файл по пути " & N_S & " не найден"
 Exit Sub
End If
met:
If Dir(N_Bes) <> "" Then
GoTo met_
 Else
MsgBox "Файл по пути " & N_Bes & " не найден"
 Exit Sub
End If
met_:
******************

Sub ProcessFiles()
Dim Filename, Pathname, saveFileName As String
Dim wb As Workbook
Dim initialDisplayAlerts As Boolean

Pathname = "C:\Users\MiniPC10\Desktop\Сергей\xlsx_test\"
Filename = Dir(Pathname & "*.xlsx")
initialDisplayAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
Do While Filename <> ""
    Set wb = Workbooks.Open(Filename:=Pathname & Filename, _
                            UpdateLinks:=False)
    wb.CheckCompatibility = False
    saveFileName = Replace(Filename, ".xlsx", ".xls")
    wb.SaveAs Filename:=Pathname & saveFileName, _
              FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
              ReadOnlyRecommended:=False, CreateBackup:=False

    wb.Close SaveChanges:=False
    Filename = Dir()
Loop
Application.DisplayAlerts = True
Application.DisplayAlerts = initialDisplayAlerts
End Sub

Sub test_carp_()
s = "*********** / 70g / *****************/ 965115040"
Dim MyRange As Range
Dim MyCell As Range
Set MyRange = Range("D34:D" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each MyCell In MyRange
 If MyCell.Value <> "" Then
 '    Right(s, Len(s) - InStrRev(s, "/") - 1)
  Debug.Print MyCell
 End If
Next MyCell
End Sub

Range("R34").AutoFill Destination:=Range("R34:R" & Range("D34").End(xlDown).Row)

Sub AutoFill_()
    Cells.Replace What:="*/ ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("R34:T34").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "General"
    Range("R34:T34").Select
    ActiveCell.FormulaR1C1 = "=RC[-14]"
    Range("R34:T34").Select
    Selection.AutoFill Destination:=Range("R34:T43"), Type:=xlFillDefault
    Range("R34:T43").Select
End Sub