Basta con lanzar el editor de VBA y escribir el código, por ejemplo en el evento de cambio.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Verificamos que el cambio se haga sólo si las celdas que han cambiado son las que nos interesan
If Intersect(Union([g3], [g4]), Target) Is Nothing Then Exit Sub
' Necesitamos que sean datos numéricos
If Not IsNumeric(Target) Then Exit Sub
Application.EnableEvents = False
Dim contador As Integer
For Each Item In Range("D8", "D" & CStr(Range("G4").Value + 8))
Item.Value = contador + Range("G3").Value
contador = contador + 1
Next
Application.EnableEvents = True
End Sub
Perdón si es demasiado básico, pero me ha ahorrado un ratito