>>893
>.cells(rows.count,1).end(xlup).row
>.cells(1,columns).end(xltoleft).column

みつかったセルから1行目まで順繰りに調べて行けばいいだけ