have you tried turning on the macro recorder and doing what you would d
manually?

If you used the Ctrl key and pressed the down arrow, the macro recorde
would record this:

Selection.End(xlDown).Select


If you have at least one blank row between your data and your total fo
that column, the .End(xlDow) will correctly find the end of the data

--
Message posted from http://www.ExcelForum.com