Ayuda para modificar una MACRO que copie e incerte con base al comando Cells.Find

[VBMAN]

Buenos días a todos, gracias de antemano por la gran ayuda que cada uno ofrece, pues en esta ocasión pido su amable ayuda con respecto a una MACRO en EXCEL que he estado modificando constantemente para hacerla mas eficiente, y me encuentro actualmente estancado tratando de modificar un paso.
La MACRO en uno de sus procesos le hemos diseñado para que se desplace a la hoja 1, después copia la fila 24:24 seguido la inserta desplazándose una celda hacia arriba de donde localice la celda que contenga el nombre "OPERADORES DE MAQUINARA" la programación es la siguiente:
'ir a la hoja 1
Sheets(1).Select
'Desproteger la hoja 1
ActiveSheet.Unprotect "RSO"
'Copiado de la fila a incertar
Rows("24:24").Select
Selection.Copy
'BUSCAR OPERADORES DE MAQUINARIA
Cells.Find(What:="OPERADORES DE MAQUINARIA", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.Offset(-1, 0).Select
ActiveCell.Insert

la Macro actualmente esta funcionando bien pero hasta cierto limite, lo que en si quiero modificar y espero me ayuden a encontrar una solución viable es en 'Copiado de la fila a incertar' la selección a copiar no sea la fila 24 sino que sea toda la fila que se encuentre "arriba" de "OPERADORES DE MAQUINARIA", he intentado modificarla utilizando Cells.Find.... en lugar de Rows ("24:24)Copy, de esta manera encuentro puedo ubicar la celda que esta "arriba" de "OPERADORES DE MAQUINARIA", pero no se como hacer para que seleccione toda esa fila para posteriormente continue el proceso de la macro...
Gracias de nuevo y estamos al pendiente....

[David]

Pues en lugar de Rows("24:24").Select podrías usar Cells.Find(...).Select, con los debidos parámetros para realizar la búsqueda.

[VBMAN]

hola a todos, solo para comentarles que ya arregle la MACRO les paso la adecuación por si alguno le puede ayudar, gracias y estamos en contacto:
Cells.Find(What:="OPERADORES DE MAQUINARIA", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.Offset(-2, 0).Select
ActiveCell.EntireRow.Copy

la modificacion que le hice fue poner el Cells.Find , seleccionar la celda activa, desplazar a la fila que queria copiar y poner ActiveCell.EntireRow.Copy