Excel マクロ・VBAの印刷方法について
急ぎの回答です！！
関数式の入っているセル（空白表示）を印刷範囲に入れずに印刷する方法を教えてください。
別シートのデータを関数で引っ張てきてひな形のセルに表示しています。
行→$1:$6 列→$A:$Agは印 刷タイトルに設定。
Ａ列7行目から1.2.3... とNo.が入っており、
Ｂ.～Ｊ. 列7行目からはデータが最終の50まで入力してます。（ 関数式=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1)) ）
Ｋ.～AG.列7行目からは書式データ（同じ文面の繰り返です。最終の50まで入っています）Ｂ～Ｊ列の7行目から関数（データ）=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1))をコピぺと一部を変更しセルへ入力して別シートからデータを引っ張てきてます。この関数だと該当する値がない場合はセルは表面上は空白セルに見えますが、セルには数式が入っている状態です。セルデータの最終行を習得し印刷に設定すると関数入力されているところで最終行と認識し、関数式を入れている50行まで印刷してしまいます。
したいことは、データが表示されている30行までなら30行まで印刷という感じにはできないでしょうか？
シートを様式一枚ずつ作成しており、1ブックには20シートずつ保存しています。そしてこのブックはおよそ30ブックあります。
1ブック内の全てのシート（20シート）に反映できるようしたいです。
※30行までデータが表示されている場合、C～Ｊには途中とちゅうで空白欄がありますが、Ｂ列は30行全てデータの表示（該当する場合）されます。
Excel マクロ VBA に詳しい方回答お願いします！
B７からはB56まですべて関数式を入力しています（最大50までデータが表示されるように）
シート枚数と、元のデータ数が行で7000程とかなり多く、このような関数式になりました。できればマクロ、VBA等での処理が望ましいです（時間がないので＞＜）よろしくお願いいたします！！！
お礼
ありがとうございます！ できました！