Sub Impression()
Dim I As Integer, J As Integer, Zone As String
J = 12
While Cells(J, 2) <> ""
I = J
While Cells(I, 2) <> ""
I = I + 1
Wend
Zone = "$B" & J & ":$Y" & I
ActiveSheet.PageSetup.PrintArea = Zone
ActiveSheet.PrintOut Copies:=1, Collate:=True
J = I + 2
Wend
End Sub