Basic - MACRO PARA IMPRESION DE HOJAS SEGUN CONDICIONES

Buenas tardes amigos soy nuevo en esta pagina, un gusto saludarles a cada uno de ustedes .

queria pedirles ayuda

tengo una una hoja en excel llamada MCL y ahi esta la macro que utilizo, me imprime una serie continua segun los datos de la hoja recipientes,

en la hoja MCL RANGO H6, se carga un valor numerico ejemplo (17) que son las lineas que lleva la hoja

lo que necesito es que en la macro identifique con una formula condicional

SI LA HOJA MCL RANGO H6: SI ES < 17, QUE IMPRIMA DE LA HOJA 1 A LA HOJA 1
SI LA HOJA MCL RANGO H6: SI ES >29<17, QUE IMPRIMA DE LA HOJA 1 A LA HOJA 2
SI LA HOJA MCL RANGO H6: SI ES >30, QUE IMPRIMA DE LA HOJA 1 A LA HOJA 3


ESTA ES LA MACRO QUE UTILIZO
por su ayuda muchas gracias amigos





Sub IMPRIMIR_MCL()
'
' IMPRIMIR_MCL Macro
'


Do While ActiveCell.Value <> ""
ActiveCell.Select
Selection.Copy
Sheets("MCL").Select
Range("O5").Select
'ActiveSheet.Previous.Select
'Range("O5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("RECIPIENTES").Select
'ActiveSheet.Next.Select
ActiveCell.Offset(1, 0).Select

Loop


End Sub