エクセル vba

質問

VBA初心者です。
sheet2にb1からb2、b3とデータを入力していきます。
（常に最新データが下に増えていきます）
sheet1のb3へsheet2の最新データ10個を（b3が常に最新データになるよう）貼り付けしたいのですがプログラムの組み方がわかりません。
最初の1個は出るようになりました；；
また10個の数字をいつでも変更できるようsheet1のb1のセルに10と入力
すれば10個貼り付け、20と入力すれば20個貼り付けなども可能でしょうか?

回答No.1

kmmk16

一例です

Sub test()
Dim i As Integer
Dim kosu As Integer
Dim maxrow As Integer
kosu = Worksheets(1).Range("B1").Value + 2
maxrow = Worksheets(2).Range("B65536").End(xlUp).Row
For i = 3 To kosu
Worksheets(1).Cells(i, 2) = Worksheets(2).Cells(maxrow, 2)
maxrow = maxrow - 1
Next
End Sub

お礼

回答ありがとうございます
大変勉強になりました。イメージがわきました＾＾

補足

回答ありがとうございます。
さらに問題がでてきて上記質問の内容に追加でデータが下に追加されていくのですが、いくつか空白セルがあります。
上記回答のforの下にたぶんif文で空白セルを削除し貼り付けるのだと思いますがわかりません。
sheet2の空白は変更しないでsheet1のみ空白を消すのは可能でしょうか?