Excel Vba inputbox 依序帶入B欄儲存格, 煩請大師指點迷津!?

圖看不清楚
Sub test()
k = InputBox("請輸入Project name：", "輸入")
'Cells(9, 2).Resize(3, 1) = k
Range("B9:B11") = k
End Sub

感謝謝謝回覆,使用上還是有些問題, inputbox填入Project name時,會直接帶入B9到B11的欄位,
理想的使用狀況會是依序填入, 如使用者一次填一個Project name會落B9, 下一次再填入Project name時會落在B10, 判斷該欄位有值時順勢往下帶入,感激不盡.

https://www.dropbox.com/s/xd5rd4axsfkkwak/150813093017d4bf331f4ffe19.png?dl=0
附上圖片,會將inputbox巨集指定為sheet1點擊觸發.