How do you use a variable range with autofill?

???

Option Explicit

Sub aaa()
    Dim strtRow As Long
    Dim TenNum
    
    strtRow = 2
    
    TenNum = Abs(Val(InputBox("How many tenants")))
    If Not IsNumeric(TenNum) Then Exit Sub
    
    With Range("N" & strtRow)
        .Formula = "=TEXT(2022,""@"")"
        .AutoFill Destination:=Range("N" & strtRow & ":N" & strtRow + TenNum), Type:=xlFillDefault
    End With
End Sub

Sub bbb()
    Dim strtRow As Long
    Dim TenNum
    
    strtRow = 2
    
    TenNum = Abs(Val(InputBox("How many tenants")))
    If Not IsNumeric(TenNum) Then Exit Sub
    
    Range("N" & strtRow & ":N" & strtRow + TenNum).Formula = "=TEXT(2022,""@"")"
End Sub

Sub ccc()
    Dim strtRow As Long
    Dim TenNum
    
    strtRow = 2
    
    TenNum = Abs(Val(InputBox("How many tenants")))
    If Not IsNumeric(TenNum) Then Exit Sub
    
    Range("N" & strtRow).Formula = "=TEXT(2022,""@"")"
    Range("N" & strtRow & ":N" & strtRow + TenNum).FillDown
End Sub

???

One way:

PHP Code: 

Sub AutofillNm()
Dim TenNum As Integer, startRng As Range
TenNum = InputBox("How many tenants")
Set startRng = Range("N12")
startRng.Offset(1, 0).Resize(TenNum - 1).Value = Range("N12").Value
End Sub