MACRO para copiar datos a otro archivo si cumple una condición

Quisiera que modifiques esta macro, esta la utilizo para eliminar filas en un archivo.

Sub QuitarFilaELIMINAR()
While ActiveCell <> ""
If ActiveCell = "ELIMINAR" Then
Selection.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
While ActiveCell.Offset(0, 0).EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Wend
Wend 
End Sub

Pero lo que necesito es copiar los datos de un archivo a otro (pasando solo los que contengan la palabra clave o numero clave, la macro hara lo siguiente:

1.- Me pregunte que coloque el cursor en la celda donde voy a iniciar la búsqueda de la palabra o numero clave

2.- Que digite la palabra o numero voy a buscar para realizar la copia de la fila

3.- Que escoja en que archivo donde deseo copiar los datos (al dar clic que salga un explorador para que ubique el archivo y lo abra)

4.- Aquí yo debo colocar la celda donde se debe comenzar a pasar los datos hacia abajo.

Dante Amor, estaré pendiente de tu respuesta.