エクセルで空白のセルを探して貼り付け

エクセルＶＢＡでSheet2の指定のセルをコピーして、
Sheet1にある表の中の指定の列の空白セルを探して貼り付けるＶＢＡを作成したいのですが、うまく出来ません。
Sheet1の表は１行目、２行目は見出しの項目が並んでいます。
３行目から５０行目までは値を入力するようになっていて、
５１行目はそれらをの集計が表示されるようになっています。
下記のＶＢＡを作成したら３行目～５０行目までの空欄に貼り付けず、
５２行目に貼り付けてしまいます。
-----------------------------------------------------------
Sheets("Sheet2").Range("B6").CurrentRegion.Copy
Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
------------------------------------------------------------
修正して頂けないでしょうか？
宜しくお願いします。

No.1 回答者： hige_082 回答日時： 2010/02/10 02:06

こんな感じで

＞Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
を
Sheets("Sheet1").Cells(1, "B").End(xlDown).Offset(1).PasteSpecial xlPasteValues
へ変更

以上、参考まで

この回答へのお礼

回答ありがとうございました。
教えて頂いた関数ではうまく出来ませんでした。

お礼日時：2010/02/10 21:09

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2010/02/10 09:38

> ５１行目はそれらをの集計が表示されるようになっています。

ということは、51行目には数式がはいっているんですね？
だから52行目から張り付いてしまうんです。

Sheets("Sheet1").Cells(51, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues

なら大丈夫なはずですよ。

この回答へのお礼

回答ありがとうございました。

意図していた通りの動作が出来ました。
感謝致します。

お礼日時：2010/02/10 21:10