Não sei se é isso que vc quer.. mas tae...

Private Sub UserForm_Initialize()

    ' Define valores padrões para as datas iniciais e finais ao inicializar o formulário
    Text_Data_Inicial.Value = Format(Date, "mm/dd/yyyy") ' exemplo: data atual
    Text_Data_Final.Value = Format(DateAdd("m", 1, Date), "mm/dd/yyyy") ' exemplo: data atual + 1 mês
    
End Sub

Private Sub Btn_Filtrar_Click()

    Dim DataInicial As Date, DataFinal As Date, DataVencimento As Date
    
    ' DataInicial = Text_Data_Inicial.Value
    ' DataFinal = Text_Data_Final.Value
    ' Verifica se Cb_Vencimento tem um valor antes de atribuí-lo à DataVencimento
    If Cb_Vencimento.Value <> "" Then
        DataVencimento = Cb_Vencimento.Value
    Else
        MsgBox "Por favor, selecione um vencimento válido."
        Exit Sub
    End If

    Plan5.Range("A5:K5").Clear

    Plan5.Range("D5").Value = Format(DataVencimento, "mm/dd/yyyy")
    Plan5.Range("E5").Value = ComboBoxProduto.Value
    Plan5.Range("F5").Value = ComboBoxPlaca.Value
    ' Plan5.Range("C5").Value = ">=" & Format(DataInicial, "dd/mm/yyyy")
    ' Plan5.Range("K5").Value = "<=" & Format(DataFinal, "dd/mm/yyyy")

    Lista.RowSource = IntervaloDados

    Label24.Caption = " Total de Registros: " & Lista.ListCount - 1

    Text_Registro.Value = Lista.ListCount - 1

    Call total

End Sub