vba eliminando filas que no contienen valores establecidos definidos en el rango

Tengo una hoja de datos con 25k líneas. Necesito buscar en la hoja completa ciertas palabras que he definido en un rango con nombre en la pestaña 2, llamada "KeywordSearh". El rango contiene una lista de palabras que necesito buscar en los datos principales. Quiero eliminar todas las filas que NO contienen estas palabras clave (y mover todas las filas retenidas hacia arriba) y conservar solo las filas con referencia a las palabras clave (incluida la fila de títulos). Las palabras clave pueden escribirse como texto dentro de cualquier celda que también contenga otro texto, por lo que la función de búsqueda debe mirar dentro de cada cadena y no ser específica de cada caso.

Creo que el código en el enlace de abajo está cerca, pero esto no se refiere a un rango. Además, solo necesito buscar una hoja de trabajo llamada "FAIR".VBA Looping Over Sheets: eliminar filas si la celda no contiene

Soy un principiante completo de VBA por lo que cualquier ayuda es muy apreciada.

Respuestas a la pregunta(2)

Su respuesta a la pregunta