特定のセルを含む表に処理を行う

Sub A1を含む表に処理をする()
    Dim i, rowCount As Integer
    rowCount = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
    For i = 1 To rowCount
        ActiveSheet.Range("A1").CurrentRegion.Rows(i).Value = i
    Next
End Sub