Helping a student automate a couple of sheets

[SamT]

In the ertert Procedure,add a line that calls NumbersGrabber

    Next i 

NumbersGrabber 'get more numbers
End Sub

Then change

If NextRowToUse = 1 Then MsgBox "GAME OVER! There are no more numbers."

to

If NextRowToUse = 1 Then Exit Sub

Oh yeah, you may need to add .Resize(, 7) to Range("I49")

InputSht.Range("I49").Resize(, 7).Insert shift:=xlShiftDown