Ayuda con macro de búsqueda

hola tengo un problema con este acro:

Sub Buscar_Texto_En_Lista()
'dimensiones
Dim lngUltimaFila As Long
Dim strObjetoBuscar As String
Dim lngResultado As Long
Dim lngColumna As Long, lngFila As Long
Dim lngPegarColumna As Long, lngPegarFila As Long
Dim x As Integer, n As Integer
'quitar resultados anteriores
Range("F5:H4000").ClearContents
'columna + fila donde empezar/terminar búsqueda
lngColumna = 1
lngFila = 1
lngUltimaFila = Columns(lngColumna).Range("A65536").End(xlUp).Row
'columna + fila donde empezar a pegar resultados
lngPegarColumna = 7
lngPegarFila = 5
'objeto a buscar
strObjetoBuscar = Range("G2").Text
If strObjetoBuscar = "" Then GoTo 99
'minúsculas
strObjetoBuscar = LCase(strObjetoBuscar)
'bucle: realizar búsqueda
For n = lngFila To lngUltimaFila
'evaluación
lngResultado = InStr(1, Cells(n, 2), strObjetoBuscar, vbTextCompare)
'copiar/pegar
If lngResultado > 0 Then
Range(Cells(n, 1), Cells(n, 3)).Copy
Range( _
Cells(lngPegarFila, lngPegarColumna), _
Cells(lngPegarFila, lngPegarColumna + 2)) _
.Select
ActiveSheet.Paste
lngPegarFila = lngPegarFila + 1
End If
Next n
'aparcar
Application.CutCopyMode = False
Range("G2").Select
99:
End Sub

Como podrán apreciar este macro me busca y me da los resultados pero lo hace todo en la misma hoja y lo que quiero es que las búsquedas las realize en otro libro, agradecería me puedan iniciar donde tendría q modificar para q las búsquedas me las realize como dije en otro libro, y de que forma tendría q colocarlo.

otra cosa que quisiera es saber si uno los resultados que me de(ya me devuelve tres columnas) los podría con un click trasladarlos a úna celda dela misma hoja por ejemplo la celda L1 de la hoja2 , solo necesitoque me traslade una de las tres celdas que me devuelve.

Saludos.

gracias