【Excel VBA（マクロ）】データ一覧表の指定列の開始行から最終行までに自動で連番を振る

Sub 連番を振る()
    
    '「番号」列の開始行
    Const NumRowStart As Integer = 3
    '「番号」列の最終行
    Dim NumRowEnd As Integer
    '「番号」列の列番号
    Const NumCol As Integer = 2
    
    '「名前」列の列番号
    Const NameCol As Integer = 3
    
    '「番号」列の最終行＝「名前」列の最終行を求める
    NumRowEnd = ActiveSheet.Cells(Rows.Count, NameCol).End(xlUp).Row

    'カウンタ
    Dim i As Integer
    
    '連番
    Dim Num As Integer
    Num = 1
    
    '連番を振る
    For i = NumRowStart To NumRowEnd
        ActiveSheet.Cells(i, NumCol).Value = Num
        Num = Num + 1
    Next i

End Sub