Macro para cortar un rango de celdas si cumple con condición.

Estoy tratando de crear una macro que me corte un rango de celdas siempre y cuando el valor de la celda siguiente sea igual al anterior, es decir, me valide toda la columna A y si, la celda A1=A2=A3... Corte todo el rango (de las que son iguales) hasta la columna G, lo lleve a una hoja nueva de un nuevo libro y realice la operación nuevamente con los registros restantes hasta que encuentre vacía la columna A. Para facilidad en la validación, los datos siempre estarán ordenados de mayor a menor.

Por ahora tengo algo construido pero soy muy inexperto en el tema y no me funciona bien.