VBAの質問です。

画像に貼り付けたVBAを編集したいのですが、どなたか教えてください。
このマクロはj4とj5にページ（レコード）番号をいれて複数シートいっぺんに印刷するのに使用していますが、印刷ではなく、Excelのままファイル保存するコードに編集したいです。例えばj4に1、j5に3と入力し、マクロを実行すると、これまでは3枚の印刷がされましたが、1ファイル1シートのExcelファイルが3個デスクトップに保存されるようにしたいです。それ+ファイル名もそれぞれとあるセルに表示したファイル名に自動的に命名されると助かります。