La siguiente macro hará lo que necesitas. Solo debes ajustar nombre de libro, hoja y primer celda destino. En la macro dejo los comentarios para que puedas ubicar las instrucciones.
Sub buscaRoro()
'x Elsamatilde
'se solicita el dato a buscar
dato = InputBox("Ingresa el dato a buscar.")
If dato = "" Then Exit Sub
'se establece el destino: libro, hoja y primer celda libre en col A
Set hox = Workbooks("OtroLibro.xlsm").Sheets("Hoja2")
x = hox.Range("A" & Rows.Count).End(xlUp).Row + 1
'se busca en col A de la hoja activa.
Set busco = ActiveSheet.Range("A:A").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encuentra guarda la fila y busca el siguiente
If Not busco Is Nothing Then
fila1 = busco.Row
Do
fila2 = busco.Row
Set busco = ActiveSheet.Range("A:A").FindNext(busco)
Loop While Not busco Is Nothing And busco.Row <> fila1
End If
'controla si las variables 'fila' contienen valores
If fila1 <> 0 And fila2 <> 0 Then
Range("A" & fila1 & ":A" & fila2).EntireRow.Copy Destination:=hox.Range("A" & x)
End If
End Sub
La macro solicita el dato a buscar.... pero también podrías tomarlo de otra celda.
Y la copia se realiza de rango completo con la instrucción ENTIREROW, incluyendo las que tienen el dato a buscar... comentame si necesitas que ajuste algún detalle aquí.

Sdos y no olvides valorar la respuesta (opciones: excelente o buena)
Elsa
*Cyber-mes en manuales Excel