Cambiar nombre de hoja en las referencias de las fórmulas cuando los copias en otras hojas

Tengo la siguiente hoja excel:

Lo que quiero hacer es: Cuando pulse en el botón Create Epic que me copie el bloque de filas de la 7 a 11 en otra hoja excel tantas vece como Epic Name tenga descritas en la columna B. En este caso 3. Un bloque seguido del otro.

Además en cada uno de los bloques donde en las fórmulas aparezca la referencia a la hoja original también ponga el Nombre de la Epic Name correspondiente.

Ejemplo para el primer bloque, la fórmula de la celda G7 cambiarla por el nombre Epic Name 1.

He conseguido que me copie un bloque, pero no se como hacerlo iterativo hasta el total de Epic Name y que cambie el nombre de las hojas en las referencias de las fórmulas.

Sheets("HojaOrigen").Select
Range("a18:ai22"). Copy
Sheets("HojaDestino"). Range("a2").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll