Macro para copiar el valor numerico de una celda (I1) incrementandolo en uno

[sitolado]

Necesito crear una macro que copie el valor númerico de una celda de referencia incrementandolo en una unidad y que al mismo tiempo actualice la celda de referencia situandose para finalizar en la celda de origen. Ejemplo: si estoy situado el la celda (I8) necesito que copie el valor de la celda (I1) = 6 incrementandolo en una unidad. (I8) = 7. Actualizando el valor de la celda de referencia (I1) = 7 y finalizando su posicion en la celda de origen (I8)

[Pinta]

Si lo he entendido bien

Sub Ejecuta()
    ActiveCell = Range("I1") + 1
    Range("I1") = ActiveCell
End Sub

[sitolado]

Perfecto. Muchas gracias Pinta.