エクセルの罫線の一部が消える

質問

Sheet1の
B1:G3に文書名等、
B4:G4にタイトル、
B5:G104にデータが入っています。
B列の値でフィルターをかけてB5:G104をSheet2に貼り付けています。

Sheet2は
B1:G3はヘッダー（フッターにはページを入れています）
B4:G4にタイトル、
B5:G104にデータが貼り付けられます。
ただ、フィルターをかけますから、データが0行の時もあれば100行の時もあります。

これでSheet2を印刷すると、Sheet2のタイトル行のすぐ下、G5の上の線が表示（印刷）されません。
印刷はデータの最終行までに設定しています。
全部印刷した場合には4ページまでいきますが、すべてのページでタイトル行のすぐ下の罫線が
欠落します。

理由が分かりません。
要領の悪い説明で分かりにくいと思いますが、どなたか教えていただけないでしょうか。

よろしくお願いします。

回答No.1

watabe007

>Sheet2のタイトル行のすぐ下、G5の上の線が表示（印刷）されません。
問題の罫線は、G5行の上側に引くのではなく
タイトル行を選択して下側に引いてみては

補足

watabe007さん、ありがとうございます。
返事が遅くなって申し訳ございません。

最終行が常に変化しますので、印刷のマクロのなかに、

Range("G36,G68,G100").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With

を入れてみました。

すると、付け足した罫線が最終行だと誤解？されるのか、
G100の罫線までいつも印刷してしまいます。

解決の方法はないのでしょうか。

よろしくお願いします。