Entra al Editor (con ALT y F11)
Inserta un módulo y allí copia lo siguiente:
Sub impresion()
'x Elsamatilde
'configura el rango según valor de celda 'AJUSTAR CELDA
If [M2] = 2 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$5"
ElseIf [M2] = 5 Then
ActiveSheet.PageSetup.PrintArea = "$A$8:$H$13"
Else
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$13"
End If
'ActiveSheet.PrintPreview 'vista preliminar
ActiveSheet.PrintOut 'impresión
End Sub
Ajusta tu rango que lo dejá en M2 y si necesitas vista previa habilita la línea al final quitándole la comilla.
Podrás ejecutarlo desde el mismo menú Macros, con un botón o atajo de teclado. Temas que tengo explicados en la sección Macros de mi sitio.