cur_colm = oExcel.ActiveCell.Column > lastcell = oExcel.Cells(65536, cur_colm).End(xlUp).Address >
with oExcel.ActiveSheet cur_colm = oExcel.ActiveCell.Column lastcell = oExcel.Cells(65536, cur_colm).End(xlUp).Address endwith