Extraer datos de varias hojas mismo libro

Cordial saludo. Con una macro saco copias de un formulario ubicado en la hoja "Evaluación", las copias quedan nombradas automáticamente "Evaluación (2)", "Evaluación (3)", etc. Lo que necesito es en una hoja "Resultados" traer los datos de las celdas D7,D8,D9,D10 y M30 de todas las hojas del libro sin importar el numero de copias que se hagan del formulario. Estaba intentando la siguiente combinación pero me quede pegado en incorporar el nombre de la hoja actual (ultima copiada) a la formula:

Sheets("Evaluación").Select

Sheets("Evaluación").Copy Before:=Sheets(2)

nomHoja = ActiveSheet.Name

Sheets("Resultados").Select
Range("H17").Select

ActiveCell.End(xlUp).Select

ActiveCell.Offset(1, 0).Select

ActiveCell.FormulaR1C1 = "='Evaluación (2)'!R[4]C[2]"

Agradezco su valiosa colaboracion