I can confirm the only issue is that I can't suck the value of EndingMonth into Ending. I've refrenced it a bunch of different ways and can't get it to work.

Sub Populate()


    Dim Counter As Integer
    Dim Ending As Integer
    Counter = 1
    Ending = Int(EndingMonth)
    Range("FirstMonthHeading").Select
    While Counter < Ending + 1
        ActiveCell.FormulaR1C1 = Counter
        ActiveCell.Offset(0, 1).Select
        Counter = Counter + 1
    Wend
    
    
End Sub
If instead I say Ending = 12, it runs perfectly. What is the issue? The referenced cell is just a SUM function and displays a number.