sub sumtoend()
ac=activecell.column
lr=cells(rows.count,ac).end(xlup).row
cells(lr+2,ac)=application.sum(range(cells(1,ac),c ells(lr,ac))
end sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Annette" wrote in message
...
Since I don't always know how many rows I will have in a spreadsheet, I
would like a macro that if I run the macros on a specific column, it
automatically takes me to the end the filled column and drop down one more
row to a blank cell and adds the entire column.

My macro is cell specific using recorder and I don't want that.

Thanks much for assistance!