Buscar una palabra concreta, seleccionar esta palabra + datos derecha e inferiores, copiar la información en otra hoja.

Primero de todo muy agradecida por la existencia de esta página.

A continuación detallare mi problema.

Tengo un documento Excel con muchos datos. Tengo que seleccionar unos datos concretos. Concretamente a partir de la celda donde hay escrito la palabra "Nombre" hasta 9 columnas a la derecha y 22 filas abajo.

Resumen

1) Buscar palabra "Nombre" en mi Hoja 1

2) Una vez encontrada, seleccionar la celda con la palabra nombre y también las celdas del lado y abajo (concretamente 9 columnas a la derecha y 22 filas abajo)

3) Copiar este grupo de datos en otra hoja (ej Hoja 2)

Busco la palabra "Nombre" ya que no siempre los datos buscados estarán en la mismas columnas ni filas.

He empezado mi código así

Sub provem()

With ActiveSheet.UsedRange

Set c = .Find("Nombre", LookIn:=xlValues)