Boton imprimir

Buenas grupo,
Tengo una tabla en una hoja que se llama cuadrante, y de esa tabla
tengo que coger dos campos los que estan en la columna AO y AH y
mientras AO no sea vacio tengo que cambiar esos valores en la hoja
recibos si el valor a AH es mayor de cero. y asi voy imprimiendo todos
los recibos que deben de salir. A mi se me ha ocurrido lo siguiente:
Worksheets("cuadrante").Range("AO9").Select
Do While Not IsEmpty(Worksheets("cuadrante").Selection)
Worksheets("recibo").Range("D8") Worksheets("cuadrante").Range("BH9")
Worksheets("recibo").Range("I8") Worksheets("cuadrante").Selection
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("cuadrante").Selection.Offset(0, 1).Select
Loop
Primer problema, me da error
IsEmpty(Worksheets("cuadrante").Selection), error 438.
segundo no se como hace que recorra la segunda columna de valores
porque con Worksheets("cuadrante").Selection.Offset(0, 1).Select solo
me recorreria una columna no ?.
El area de impresion y todo eso ya lo tengo definido para la hoja del
recibo.
A ver quien me puede dar una pista de como hacerlo, o si voy por buen
camino.

Gracias.