¿Cómo arrastrar un valor para que se incremente un correlativo hasta la siguiente fila llena y está haga lo mismo en VBA?

Tengo el valor A1 como 300004-1 que al arrastrarlo hasta A4 queda como 300004-4 y el valor de A5 es 300006-1 y este al arrastrarlo con el mouse llega a A7 con 300006-3 y en A8 continua con el valor 300007-1 y así. Quisiera saber qué formula se usa para arrastrar esos valores y den el valor correlativo hasta la siguiente celda.

He usado:

Range("A1:A9684").Select

For Each cell In Selection

If cell.value="" Then

cell.Value=cell.Offset(-1, 0).Value

End If

Next Cell

End Sub

Pero solo me copia los mismos valores hasta la siguiente y no se arrastra con los correlativos de la derecha después del guión.

¿Qué función o fórmula VBA podría usar?