Macro para imprimir una tabla que se actualiza periódicamente

Range(Range("A1"),Range("A1").End(xlDown).End(xlToRight)).PrintOut
Range(Range("A1"),Range("A1").End(xlDown).Offset(0,6)).PrintOut

Ambas te funcionan si no en la columna A no hay espacios vacios, la
primera hasta el final de la ultima fila si no hay vacios (asumo que en
H no hay nada) y la segunda especificamente hasta la columna G

> En la respuesta anterior cuando dije que las formulas estaban en las
> columnas E y F quise decir F y G. Los datos manuales estan desde la A

> la E. Perdon
> Saludos!
>
> "Manuel Romero" <m.r.o.m.e.r.o.p@@@@h.o.t.m.a.i.lc.o.m.> escribió en

> mensaje news:
>> Range("A1").CurrentRegion.PrintOut
>>
>>> Hola Amigos:
>>>
>>> Quiero hacer una macro que me permita imprimir un rango de datos de

>>> tabla. Día a día se van actualizando los registros de dicha tabla, por

>>> que, por ejemplo, al fin de un día nos encontramos con que el último
>>> registro se encuentra en la fila 250, al día siguiente el último

>>> esta en la fila 400, y al siguiente en la fila 140, y asi va variando

>>> día.
>>> Probe con una macro con el siguiente codigo:
>>>
>>> Range("A1:G1000").Select
>>> Selection.PrintOut Copies:=1, Collate:=True
>>>
>>> Pero como era de esperarse me imprime tambien los registros en blanco

>>> el consiguiente desperdicio de papel. Como puedo hacer para que el

>>> me reconozca cual es la última fila con resistros e imprima la tabla

>>> hasta ahi?
>>> Desde ya muchísimas gracias.