I tried to do this without VBA Code.
I suppose your data is in column format like A1:A1000, B1:B2000, C1:C350 or
something like that.
I have written a formula which you can place in any cell
=SUM(INDIRECT(ADDRESS(1,ROWS($K$9:K9),TRUE)&":"&ADDRESS(COUNTA(INDIRECT(MID(ADDR\
ESS(1,ROWS($K$9:K9),TRUE),2,1)&":"&MID(ADDRESS(1,ROWS($K$9:K9),TRUE),2,1))),ROWS\
($K$9:K9))))
This is the formula which will add all values from Column A onwards. Just drag
the formula down to add the values in B column and so on.
A point to note. In the formula on top I assumed that the cell which I am
Writing this formula is Cell K9. If you are writing this formula in say cell J2
for eg. then change all the instances of K and 9 to J and 2 respectively.