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

質問

エクセルＶＢＡで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.2

merlionXX · ベストアンサー

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

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

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

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

お礼

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

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

回答No.1

hige_082

こんな感じで
＞Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1).PasteSpecial xlPasteValues
を
Sheets("Sheet1").Cells(1, "B").End(xlDown).Offset(1).PasteSpecial xlPasteValues
へ変更

以上、参考まで

お礼

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