Last non-blank cell in a row or column

[venkat1926]

try

cells(1,columns.Count).end(xltoleft).select