空白行があっても、最終行まで通し番号を振る

Sub 何か入力されていても、空白行があっても、最終行まで通し番号を振る()

Dim i
i = 1
Dim maxrow
With ActiveSheet.UsedRange
maxrow = .Find("*", , , , xlByRows, xlPrevious).Row
End With

If Range("a1").Value <> "番号" Then
MsgBox "A1の項目名が『番号』ではありません。"
Else
For i = 1 To maxrow - 1
Cells(i + 1, 1).Value = i
Next i
End If

End Sub