Tengo un codigo que me permite buscar un fragmento de texto en una lista, lo que no se es como llevar éste codigo para que busque en una hoja y lo pegue en otra hoja.

Agrego el código por cualquier duda.

Gracias

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("I9:l4000").ClearContents

'columna + fila donde empezar/terminar búsqueda
lngColumna = 6
lngFila = 9
lngUltimaFila = Columns(lngColumna).Range("A65536").End(xlUp).Row

'columna + fila donde empezar a pegar resultados
lngPegarColumna = 9
lngPegarFila = 9

'objeto a buscar
strObjetoBuscar = Range("I5").Text 'celda a filtrar
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, 6), strObjetoBuscar, vbTextCompare)

   'copiar/pegar
    If lngResultado > 0 Then
     Range(Cells(n, 6), Cells(n, 8)).Copy 'para cambiar las columnas que quiero copiar/pegar
      Range( _
      Cells(lngPegarFila, lngPegarColumna), _
      Cells(lngPegarFila, lngPegarColumna + 2)) _
        .Select
      ActiveSheet.Paste
    lngPegarFila = lngPegarFila + 1
    End If

Next n

'aparcar
Application.CutCopyMode = False
Range("I5").Select

99:

End Sub