Finding last cell in a column

[snb]

Sub M_snb()
  sn = sheet1.cells(1).currentregion
  msgbox sheet1.cells(ubound(sn),1)
End Sub