Give this a try. Click on the column letter and run.

Sub SumAColumn()
Dim i As Long
Dim j As Long
Dim Drng As Range
Set Drng = Selection
j = Application.WorksheetFunction.CountA(Drng)
i = Application.WorksheetFunction.Sum(Drng)
Drng.End(xlDown).Offset(j, 0).Value = i
End Sub

HTH
Regards,
Howard

"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!