I don't see your problem but I am a little confused as to which range you
want to print since you select 3 different ranges in your macro. Ultimatley
you will be printing B6 through H13 since that is your last selection prior
to the selection print...

The entire thing could be done with just this in that case...
Range("B6:H13").PrintOut

I am guessing that is not what you intend to print however? Describe what
you would like to print and we can give you a hand...
--
HTH...

Jim Thomlinson


" wrote:

Range("B6:B7").Select
Range(Selection, Selection.End(xlDown)).Select
Range("B6:H13").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("B6").Select

"Jim Thomlinson" wrote:

Post your code...
--
HTH...

Jim Thomlinson


" wrote:

I am trying to creat a macro to print only a selection of a spreadsheet that
has data, however, everytime I create it all goes well. Then I run it and it
prints the entire spreadsheet (4 pages). Can anyone help me? Thanks