In a macro I need to select an Range of cells (rows and columns) for
printing

The data in the spreadsheet is brought in via a database query and so
the bottom area has lots of blank rows, and a print page ends up with
half dozen blank pages.

Each time the data is refreshed there is going to be more or less rows,
so I cannot choose a specific range.

I've tried Special Cells Last Cell but it goes to the end of the blank
rows
   Selection.SpecialCells(xlCellTypeLastCell).Select

Can't use Special Cells Blanks as there are couple in the data itself

I've tried selecting the area and then printng the selection but only
get 2 cells
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlDown)).Select
  ActiveWindow.Selection.PrintOut copies:=1
Any ideas?