Dim objFolder As Outlook.Folder
Dim objNS As Outlook.Namespace
Dim objMail As Outlook.MailItem
Dim lCounter As Long
Set objNS = Outlook.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Важная папка")
For lCounter = 1 To objFolder.Items.Count
Set objMail = objFolder.Items.Item(lCounter)
{Здесь я получаю информацию различную из objMail такие как дата, время, тема, отправитель, вложения и т.д. и произвожу с ними манипуляции.}
Next

Sub ОбработкаДанных()

'Открываем файл
Dim wb As Workbook
Dim ws As Worksheet
Dim hs As Worksheet

Set hs = ThisWorkbook.Sheets("Обработка")
Application.ScreenUpdating = False
Set wb = Workbooks.Open("путь до файла.xlsx", 0, Password:="")
wb.Application.DisplayAlerts = False
wb.Application.AskToUpdateLinks = False

'Ставим фильтр (Это ваш код)
    Dim oMR As Range
    Set oMR = ws.Range("F1:F" & Cells(ws.Rows.Count, 14).End(xlUp).Row)
    oMR.AutoFilter field:=1, Operator:=xlFilterValues, _
        Criteria2:=Array(1, Replace(Format(DateSerial(2022, 4, 1), "m/dd/yyyy"), ".", "/"))
    hs.Range("A1")=oMR.SpecialCells(xlCellTypeVisible).Count - 1
    oMR.AutoFilter field:=1

'Закрываем файл
wb.Close
Application.ScreenUpdating = True
End Sub