Agregar criterios de búsqueda a macro

Buenas tengo esta macro que busca entre fechas a través de dos combobox la cual extrae datos !! La pregunta es como extraigo o como le agrego mas criterios para que filtre por otra columna?

Ej

los datos están en la hoja1 en la fila B9 hacia abajo están las fechas en la columna F hacia abajo hay valores tales como Hola1 , Hola2, Hola3 , Hola4 etc ... Aquí va mi duda como agrego para que me filtre también la columna F solo los que son Hola1 y Hola2 junto con el filtro que ya busca las fechas...

Por favor

Gracias de antemano

este es el código

Sub búsqueda()
Dim dStartDate As Date

Dim dEndDate As Date

Dim i As Long

Dim rango As Range

Dim celda As Range

Dim hj As Object

Dim e As Long

Application.ScreenUpdating = False

Application.EnableEvents = False

Set hj = Hoja2

hj.Range("A4:BA100000").ClearContents

With Hoja2

dStartDate = CDate(userform1.ComboBox1)

dEndDate = CDate(userform1.ComboBox2)

i = Hoja2.Range("A4").Row

If i < 4 Then i = 4

With .Range("A4:AM" & i)

'.ClearContents

'.Borders.LineStyle = xlNone

End With

With Hoja1 i = .Range("B65536").End(xlUp).Row

If i < 9 Then i = 9 Set rango = .Range("B9:B" & i)

End With

i = 4

For Each celda In rango If celda >= dStartDate And celda <= dEndDate Then

With celda

Hoja2.Range("A" & i & ":D" & i).Value = Array(.Value, .Offset(0, 2).Value, _

.Offset(0, 4).Value, .Offset(0, 37).Value)

End With

i = i + 1

End If

Next celda

End With

Set rango = Nothing

MsgBox ("Proceso Finalizado")

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub