Dam_Macro Filtrar en dos celdas

Tengo este código con el cual filtro desde una celda toda una hoja de excel, en la celda F1 busco y filtra la hoja haciendo una búsqueda automática:

Private Sub Worksheet_Change(ByVal Target As Range)
'FilExp
If Sheets("ControlDoc").Range("F1") = Empty Then
Range("A3").AutoFilter
Range("A3").AutoFilter
Else
Range("H3").Select
Selection.AutoFilter
ActiveSheet.Range("$H$3:$H$3").AutoFilter field:=8, Criteria1:=[F1]
Cells(Range("H3").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Row, 1).Select
Range("F1").Select
End If
End Sub

Me funciona a la perfección, el detalle es que quisiera a la vez hacer búsqueda en otra celda un criterio adicional, como podría agregar ese detalle a este código.