名簿を参照して宛名を1つずつ差し込んでいく。
sheet1"A1"にsheet2A列のデータを差し込む。
'sheet2A列の最終行番号を取得 。
Dim LastRow As Long
LastRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
'ForNextで最終行まで差し込みを繰り返す。都度印刷。
Dim i As Long
For i = 2 To LastRow
Worksheets("Sheet1").Range("A1").Value _
= Worksheets("Sheet2").Range("A" & i).Value
Worksheets("Sheet1").PrintOut
Next
Sheet2の名簿データを参照。
Sheet1.Range("A1")に順番に挿入していく。
LastRowを取得。
Dim LastRow As Long
LastRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Sheet1").Range("A1")へ
Worksheets("Sheet2")の二行目から最終行（6）まで繰り返し挿入されていく。
Dim i As Long
For i = 2 To LastRow Worksheets("Sheet1").Range("A1").Value _
= Worksheets("Sheet2").Range("A" & i).Value
最終行（6）でForNextが終了。