Ultima celda con datos como variable

quiero que mi área de impresión sea la selección de la ultima celda con datos de la columna u hacia la celda b1.

este rango cambia de acuerdo a cada hoja pero las columnas son las mismas

Sub area_U()
'
INI = Range("B1").Select
Área = Range("U65536").End(xlUp).Select
Range("B1", Range("C65536").End(xlUp)).Select
ActiveSheet.PAGESETUP.PrintArea = INI & ":" & Área
Rem Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PrintPreview
End Sub