=СУММПРОИЗВ((A:A>=45047)*(A:A<=45077)*1)

=СЧЁТЕСЛИМН(A:A;">=" & 45047;A:A;"<="&45077)

Set hs = ThisWorkbook.Sheets("Обработка")

Set hs = wb.Sheets("Обработка")

Set oMR = ws.Range("F1:F" & Cells(ws.Rows.Count, 14).End(xlUp).Row)

Sub DateFilter()
  ActiveSheet.Range("$A$7:$M$23").AutoFilter Field:=12, _
    Criteria1:="<" & CDbl(DateSerial(Year(Date), Month(Date) - 2, 1)), _
    Operator:=xlOr, Criteria2:=">=" & CDbl(DateSerial(Year(Date), Month(Date), 1))
End Sub

Option Explicit

Sub DateFilter()

    Dim dtFrom      As Date
    dtFrom = DateSerial(Year(Date), Month(Date) - 2, 1)

    Dim dtTo        As Date
    dtTo = DateSerial(Year(Date), Month(Date), 1)

    ActiveSheet.Range("$A$7:$M$23").AutoFilter _
            Field:=12, _
            Criteria1:="<" & CLng(dtFrom), _
            Operator:=xlOr, _
            Criteria2:=">=" & CLng(dtTo)
End Sub

Sub Макрос()
    Dim Sh As Worksheet
    Set Sh = ActiveSheet
    If Sh.AutoFilterMode Then Sh.Range("$A$7:$N$8").AutoFilter
    Sh.Range("$A$7:$N$7").AutoFilter
    LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
    Sh.Range("N8:N" & LastRow) = "=OR(IFERROR(RC[-2]<DATE(YEAR(TODAY()),MONTH(TODAY())-2,1),TRUE),IFERROR(RC[-2]>=DATE(YEAR(TODAY()),MONTH(TODAY()),1),TRUE))"
   Sh.Range("$A$7:$N$" & LastRow).AutoFilter Field:=14, Criteria1:="ИСТИНА"
End Sub

Sub SetFilter()
'ZVI: обновленная версия
  Dim v As Variant, vArr() As Variant, fArr() As Variant
  Dim i As Long, j As Long, fc As Long, dt1 As Date, dt2 As Date, dt3 As Date
  
  Const sRng = "A7:M23" ' Filter range
  fc = 12               ' Filter column number
  
  i = Application.InputBox("Текущий месяц: 1...12", "Условие фильрации", Month(Date), Type:=1)
  If i < 1 Or i > 12 Then
    MsgBox "Отмена ввода месяца", vbInformation, "Отмена действия"
    Exit Sub
  End If
  dt1 = DateSerial(Year(Date), i - 2, 1)
  dt2 = DateSerial(Year(Date), i, 1)
  dt3 = DateSerial(Year(Date), i + 1, 1) ' ограничение, чтобы не отображать следующие месяцы
  
  With ActiveSheet.Range(sRng)
    If .Worksheet.AutoFilterMode Then .Worksheet.AutoFilterMode = False
    vArr = .Columns(fc).Value
    ReDim fArr(1 To 2 * UBound(vArr))
    For i = 2 To UBound(vArr)
      v = vArr(i, 1)
      If IsDate(v) Then
        'If v < dt1 Or v >= dt2 Then ' <-- чтобы отображать и следующие месяцы, вместо строки ниже
        If v < dt1 Or (v >= dt2 And v < dt3) Then
          j = j + 1
          fArr(j) = 1
          j = j + 1
          fArr(j) = Format(v, "mm\/dd\/yyyy")
        End If
      End If
    Next
    If j = 0 Then
      MsgBox "Нет ячеек с требуемым критерием фильтрации", vbExclamation, "Отмена действия"
    Else
      ReDim Preserve fArr(1 To j)
      .AutoFilter Field:=fc, Criteria1:=Array("01.01.1900", "#Н/Д"), Operator:=xlFilterValues, Criteria2:=fArr
    End If
  End With
  
End Sub