Necesito recorrer filas (Range) entre fechas según el valor de 2 celdas (Fechas diferentes)

Bueno, tengo una macro que hace lo siguiente...Busca datos en la columna A pidiendo otro archivo que tiene el mismo valor en la columna "a" del archivo requerido.

Mas, necesito que recorra un rango de filas según el valor de dos celdas (Fechas)

Sub Carga_Operacion()
Dim Response As String
Dim Fini As Date
Dim Fter As Date
Dim hora1 As String, fecha1 As String, user1 As String
destino = ActiveWorkbook.Name
nuevo = Application.GetOpenFilename
If nuevo = False Then Exit Sub
Workbooks.Open nuevo
origen = ActiveWorkbook.Name
Workbooks(destino).Activate
' aquí debiera capturar el rango según valor celda $P$1 y $V$1
' recorriendo la columna D,
Hoja48.Range("a2:a500").Select '
' Este debiera ser el rango de inicio
Fini = Hoja48.Range("P1").Value
' Este debiera ser el rango de término
Fter = Hoja48.Range("V1").Value
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
Set busca = Workbooks(origen).Sheets(1).Range("a2:a65000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ActiveCell.Offset(0, 4).Value = busca.Offset(0, 2).Value
End If
'
ActiveCell.Offset(1, 0).Select
Loop
Workbooks(origen).Activate
ActiveWorkbook.Close False
Response = MsgBox("CARGA REALIZADA CON ÉXITO", vbOKOnly, "AVISO")
End Sub