Inserting formula in range

[0 Agios]

I am trying to insert the same formula in a range where it will copy the cell above and add 1
The starting cell will start with January and the next cell should automatically say February

this is the form
ComboBox2.AddItem "1 Year"
ComboBox2.AddItem "2 Years"
ComboBox2.AddItem "3 Years"
ComboBox2.AddItem "4 Years"
ComboBox2.AddItem "5 Years"
ComboBox2.AddItem "6 Years"
ComboBox2.AddItem "7 Years"
ComboBox2.AddItem "8 Years"
ComboBox2.AddItem "9 Years"
ComboBox2.AddItem "10 Years"

and this is in a button in same form

Select Case ComboBox2
Case "1 Year"
Range("D11:D21").FormulaR1C1 = "=R[-1]C+1"
Case "2 Years"
Range("D11:D33").FormulaR1C1 = "=R[-1]C+1"
Case "3 Years"
Range("D11:D45").FormulaR1C1 = "=R[-1]C+1"
Case Else

End Select

 

[StephenCrump]

Is this what you want to do?

N = 12 * Val(Left(ComboBox2.Text, 2))

With Range("D10")
    .Formula2 = "=EDATE(DATE(2023,1,1),SEQUENCE(" & N & ",,0))"
    .Resize(N).NumberFormat = "MMM"
End With

 

[0 Agios]

Perfect works, thank you