Excel - Entre Rangos

Ayuda Foro.!

Tengo un archivo con las siguientes columnas

A=NumDepartamento
B=Codigo Articulo
C=Descripcion del articulo
D=Cantidad
E=Monto etc.

me pueden propocionar algun macro donde le pueda indicar
que me imprima Rangos del "NumDepartamento" a "X NumDepartamento"


Gracias foro

Muy buenas

mira a ver si te sirve esta macro

Sub imprimir()
primero = InputBox("primera referencia")
ultimo = InputBox("última referencia")
Set c = Range("a:a").Find(primero, LookIn:=xlValues)
If Not c Is Nothing Then
filaprimero = c.Row
End If
Set c = Range("a:a").Find(ultimo, LookIn:=xlValues)
If Not c Is Nothing Then
filaultimo = c.Row
End If
Rows(filaprimero & ":" & filaultimo).Select
Selection.PrintOut Copies:=1, Collate:=True

End Sub

Espero que te sirva

Un saludo. Juanjo.