Sumar 1 a la celda siguiente en una columna al aplicar enter

Necesito al darle enter luego del ingreso de todos los datos, aparezca automáticamente el numero consecutivo al que figura en la celda anterior de la misma columna

Ejemplo:

en D1 dice= 678, al darle enter en D2 debe aparecer =679

Se q es con macros pero no tengo idea de ello.

Gracias