本当に初歩的な質問をして申し訳ございません。

sheet1のcells(7,1)の部分から、cells(3,3)に入力した数字分だけ下に伸ばしたいのですが
自動的にやる方法ご存知でしょうか？
Sub Number()

Worksheets("sheet1").Activate
a = Worksheets("Sheet1").Cells(3, 3).Value

For n = 1 To a
Worksheets("sheet1").Cells(n + 5, 1).Value = n
Next


End Sub

上記のコードを書き込んだのですが、マクロ上で実行ボタンを押さないと
sheetに表示されません。
初歩的で大変すみません。よろしくお願いします。