Impresión segun Dato de Validación

Buenas Tardes,

Necesito una macro para imprimir unos datos de una Hoja, estaba tratando
guardandola pero sería muy tedioso ya que son muchos datos. Esto fue la
parte que grabé nada mas:

Sub Impresion()
Range("B5").Select
ActiveWindow.SmallScroll Down:
Range("B31").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollRow = 1
Range("B5").Select
ActiveWindow.SmallScroll Down:
Range("B31").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("E32").Select
ActiveWindow.SmallScroll Down:=-48
End Sub

Necesito imprimir una página segun vaya seleccionando los datos que tengo en
las Celdas B5 y B31 que vienen de una validación, lo que necesito es
seleccionar un dato primero en la B5, despues el que sigue en la B31, e
imprimir, despues seleccionar los dos que vienen despues de esos e imprimir
nuevamentee, y asi sucesivamente hasta llegar al último,

Espero haberme explicado.

Saludos,

Angelo Vernaza