Sub 連番()
'=======================================
'B列の最終行までA列に連番を振るマクロ
'=======================================
    Worksheets("提出").Activate
    Range("A1").Select

'変数の定義
    Dim targetCell As Range
    Dim maxRow, i As Long
'B列の最終行を求めてmaxRow変数に値を代入
    If Len(ActiveSheet.Range("B1").Value) = 0 Then
        maxRow = 0
    ElseIf Len(ActiveSheet.Range("B2").Value) = 0 Then
        maxRow = 1
    Else
        maxRow = ActiveSheet.Range("B1").End(xlDown).Row
    End If
'B列の最終行の取得結果に応じて作業を分岐
    If maxRow > 0 Then
    '連番の初期値を設定
        i = 2
    '選択範囲内での繰り返し処理
        For i = 1 To maxRow - 1
        '連番を振るセルの値を変更
            Range("A" & i + 1).Value = i
        Next
    'メッセージを表示して終了
       MsgBox ("A列に連番を振りました。")
    Else
    'メッセージを表示して終了（エラー）
        MsgBox ("B列にデータがないので作業を中断します。")
    End If
End Sub