No sé si estoy entendiendo adecuadamente tu necesidad. Sin embargo, comienzo por mostrarte el siguiente código:
Código:
Sub Macro1()
Workbooks.Open FileName:="C:\Libro2.xls"
Sheets("Prueba").Select
Cells.Find(What:=DNI, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Range(Selection.Offset(0, 1), Selection.Offset(0, 4)).Copy
ActiveWindow.Close SaveChanges:=False
ActiveSheet.Paste Destination:=[A5]
End Sub
En él:
a) abrimos el libro "Libro2.xls"
b) Pasamos a la hoja "Prueba"
c) Buscamos la información "DNI"
d) opiamos un rango de 4 celdas a la derecha del dato hallado
e) cerramos "Libro2.xls"
f) pegamos lo copiado a partir de la celda "A5".
¿Es ésto lo que estás buscando? ¿Alguna otra cosa?
Saludos