lr = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row Range(ActiveCell, Cells(lr, ActiveCell.Column)).Select