Excel - CurrentRegion como área de impresión

Quiero que "CurrentRegion" sea el área a imprimir y no la toma .. por ejemplo:

ActiveSheet.PageSetup.PrintArea = ""
Range("B9").Select
Selection.CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = CurrentRegion

Así no lo toma, ¿Cómo debo ponerlo?
Gracias

Algo asi:
ActiveSheet.PageSetup.PrintArea = Range("B9").CurrentRegion.Address

Perfecto Armando, muchas gracias