エクセルで変数が２つある連続印刷
VBA初心者です。困っていますのでよろしくお願いします。
エクセルでVBAを使って，個人の成績個票を連続印刷する方法について教えてください。
一枚の用紙に，上半分は１組の生徒の個票を，下半分には2組の生徒の個票を連続的に印刷します。
「個票sheetセルE3」には1組の生徒番号を，「個票sheetセルE27」には2組の生徒番号を連続的に流し込み，VLOOKUP関数によって別sheetにある成績データを読み込んでいきます。
仮に2枚（1枚は「1組の1番の生徒(101)＋2組の1番の生徒(201)」の個票，もう一枚は「1組の2番の生徒(102)＋2組の2番の生徒(202)」の個票）を印刷するコードはどうすれば良いのでしょうか。
下のようなコードでは組み合わせ可能な4枚の個票が印刷されてしまいました。
VBAの専門家の方，ご助言いただければ幸いです。
Sub 一組二組印刷()
'個票を印刷するマクロです
Dim 番号一組 As Integer
For 番号一組 = 101 To 102
Sheets("個票").Range("E3").Value = 番号一組
Sheets("個票").PrintOut
Next 番号一組
Dim 番号二組 As Integer
For 番号二組 = 201 To 202
Sheets("個票").Range("E27").Value = 番号二組
Sheets("個票").PrintOut
Next 番号二組
End Sub
