Excel - Imprimir un Formato con informacion

Hola a todos, espero me puedan asesorar..
Tengo un formato el cual debe de contener cierta información que mediante el VLOOKUP se extrae de un archivo el cual contiene | Número | Nombre | Cantidad |, esta lista puede variar de una persona hasta 100 o más, ahora bien, lo que trato de hacer es una macro que me ponga en el formato toda la información de la primer persona, mande imprimir y guarde en determinada carpeta, y así susecivamente con el resto de las personas.
Ya intenté grabando una macro, pero no funciona del todo bien.
Espero alguien me pueda dar una idea de como hacerlo..
De antemano, muchas gracias..

Saludos desde México.... ! ! !

Umm lo que quieres hacer es posible, pero si lleva un poco de tiempo, te envio una que macro que tenga donde me copia unos valores determinados (en tu caso puede ser la información de la persona) y luego los copia en otra hoja llamada históricos (en tu caso puede ser el formato), para que te guarde en determinada carpeta el archivo pues es otra macro, pero poco a poco te podemos ir ayudando.

basicamente la macro es, declarar variables, validar información, dar valor a las variables, y enviar valor a otro destino e imprimir.

Sub Control_Historicos()

''Aqui se declaran las variables a usarse
Dim Empresaemisora As String, FechaSolicitud As Date, Cliente As String, Nit As String
Dim Direccion As String
Dim Monto As String, Moneda As String, FormaPago As String, Galones As String
Dim Concepto1 As String, Unidad As String
Dim Concepto2 As String, Concepto3 As String, Concepto4 As String, Concepto5 As String, TodoConcepto As String
Dim Solicitado As String, Departamento As String, Usuario As String, Zafra As String, CodCliente As String

''Revisamos que los campos esten llenos, sino se envia un msj y finaliza la macro
If Range("B4").Value = Empty Or Range("e4").Value = Empty Or Range("g4").Value = Empty Or Range("c7").Value = Empty Or Range("b11").Value = Empty Or Range("e11").Value = Empty Or Range("g11").Value = Empty Then
MsgBox prompt:="Existen campos vacios, favor de revisar", Buttons:=vbOKOnly, Title:="Advertencia existen campos vacios"
Exit Sub
End If

''Le damos valores a las variables
Contador = Range("c62").Value
Zafra = Range("c63").Value
Empresaemisora = Range("c67").Value
FechaSolicitud = Range("c75").Value
Cliente = Range("d64").Value
CodCliente = Range("E65").Value
Nit = Range("c64").Value
Direccion = Range("d65").Value
Monto = Range("c68").Value
Galones = Range("c66").Value
Unidad = Range("d66").Value
Moneda = Range("d68").Value
FormaPago = Range("D69").Value
Concepto1 = Range("c70").Value
Concepto2 = Range("c71").Value
Concepto3 = Range("c72").Value
Concepto4 = Range("c73").Value
Concepto5 = Range("c74").Value
TodoConcepto = Range("e71").Value
Solicitado = Range("c76").Value
Departamento = Range("c77").Value
Usuario = Range("c78").Value

''aqui comienza la rutina de los históricos
Sheets("Control_Históricos").Select
Range("B4").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Contador
ActiveCell.Offset(0, 1).Value = Zafra
ActiveCell.Offset(0, 2).Value = Empresaemisora
ActiveCell.Offset(0, 3).Value = FechaSolicitud
ActiveCell.Offset(0, 4).Value = Cliente
ActiveCell.Offset(0, 5).Value = CodCliente
ActiveCell.Offset(0, 6).Value = Nit
ActiveCell.Offset(0, 7).Value = Direccion
ActiveCell.Offset(0, 8).Value = Monto
ActiveCell.Offset(0, 9).Value = Moneda
ActiveCell.Offset(0, 10).Value = Galones
ActiveCell.Offset(0, 11).Value = Unidad
ActiveCell.Offset(0, 12).Value = FormaPago
ActiveCell.Offset(0, 13).Value = TodoConcepto
ActiveCell.Offset(0, 14).Value = Solicitado
ActiveCell.Offset(0, 15).Value = Departamento
ActiveCell.Offset(0, 16).Value = Usuario
ActiveCell.Offset(0, 22).Value = Concepto1
ActiveCell.Offset(0, 23).Value = Concepto2
ActiveCell.Offset(0, 24).Value = Concepto3
ActiveCell.Offset(0, 25).Value = Concepto4
ActiveCell.Offset(0, 26).Value = Concepto5

''Imprimedocumento Macro
'' Macro grabada el 20/02/2007 por MOSORIO

Sheets("Sol_Impresa").Select
'''ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
Sheets("Generación_Solicitud").Select

End Sub

Salu2