Guardar datos después de encontrar un valor buscado

Que tal experto! Tengo un problema al guardar valores con un código específico. Mi código busca un valor "X" dentro de un rango de mi selección. El problema es que no me guarda al final de la columna sino que; reemplaza los datos iniciales. Los valores de búsqueda son fechas y van desde la Celda B5 hasta la Z5 y una vez que encuentra la columna donde se aloja la fecha seleccionada, debe dar con la ultima celda llena y escribir después de ella hacia abajo, pero lo que hace es ir a la fila 1 y reemplaza hacia abajo los datos. Los cuales de la fila 1 a la 4 contienen información preestablecida. Mi código es el siguiente:

Dato = DTPicker1

Set busco = Hoja1.Range("B5:XFD5").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)

If Not busco Is Nothing Then

busco.End(xlUp).Offset(1, 0) = Proveedor.Text 'Utilizo(xlUp) xq (xlDown) da error

busco.End(xlUp).Offset(1, 0) = Factura.Text

busco.End(xlUp).Offset(1, 0) = Val(Monto)

End if

Que estoy haciendo mal?