Macro para unir DOS FILTROS de una hoja

Tengo dos códigos de filtrado

Pero quisiera que funcione juntos

Osea primero me haga la primera búsqueda y sobre lo que busco me realice la segunda búsqueda

Espero se pueda gracias

Dejo los código por separado para ver si se puedes mezclar

Sub filtrar_periodo_mejoradoSTOCK()
ActiveSheet.Unprotect
Dim lFecha1 As Long, lFecha2 As Long
lFecha1 = Range("celFechaDe")
lFecha2 = Range("celFechaHasta")
With ActiveSheet
If .AutoFilterMode = True Then .AutoFilterMode = False
End With
Range("C9").AutoFilter Field:=1, Criteria1:=">=" & lFecha1, _
Operator:=xlAnd, Criteria2:="<=" & lFecha2
'AQUI AGREGAMOS MACRO DE IMPRESION

End Sub

Sub Filtrar()

criterio = [d3]

If criterio = “” Then

Selection.AutoFilter

Else

Selection.AutoFilter Field:=1, Criteria1:=criterio

End If

End Sub