Excelで差し込み印刷(VBA)

学生11人に対して「Excelフォーマットの書類」を書かなくてはいけなくなりました。文面は同じですが、学籍番号と名前のところだけ変えて、11枚印刷しないといけません。面倒です。プログラムを書いて、対応することにしました。書いたプログラムは、9行です。プログラミングを学んでいると、こんな時便利です (^_^)。

皆さんが利用できるように、プログラムを示します。「名簿」のシートの１列目と２列目の情報を順番に、「〇〇届」のシートのB18とB20（18行2列と20行2列）に書き込んで、「〇〇届」のシートを印刷するVBAプログラムです。

Sub MergePrint()
    y = 1
    Do While Sheets("名簿").Cells(y, 1) <> ""
        Sheets("〇〇届").Cells(18, 2) = Sheets("名簿").Cells(y, 1)
        Sheets("〇〇届").Cells(20, 2) = Sheets("名簿").Cells(y, 2)
        Worksheets("〇〇届").PrintOut
        y = y + 1
    Loop
End Sub