Sub Button1_Click()

    range("C7").Select
    Dim ind As Long
    ind = 1

    Do Until IsEmpty(ActiveCell)

        Dim steps As Long
        Dim till As Long
        Dim starterValue As Long

        till = range("E" & ActiveCell.Row)
        starterValue = ActiveCell.Value

        Do Until steps = till
            Dim nnext As String
            nnext = "G" & ind

            range(nnext).Value = starterValue + steps

            ind = ind + 1
            steps = steps + 1
        Loop
        steps = 0
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub