Buscar dato, copiarlo y despegarlo en otra hoja

Hola, necesito botón que pida dato a buscar en toda la hoja, cuando lo encuentre lo copie y lo despegue en otra hoja, y después eliminar toda la fila de la hoja original,

ya conseguí encontrar el dato y eliminarlo, pero no he podido copiar y despegar en otra hoja,

este es el código que tengo hasta el momento, cualquier ayuda, les agradecería.

Sub Botón2_Haga_clic_en()

oc=InputBox("Que orden de compra cumplió")

Range("a1").Select

Cells.Find(What:=oc, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate

Selection.EntireRow.Delete

Range("a1").Select

End Sub