Summing values of a column

Hi,

I need to sum up the total value in each column to put into a value in another worksheet.

I am using a for each loop to loop through each column,

May I know how do I code it to sum the values from column D2 to last rowthat contains a value in that column.

I need to do a sum for each row, I need to find the total of those values
For example
D2:D10
E2:E15
F2:F4



Thanks

Hi Mike,

I am currently using code below

For Each ce In ws.Range("D2:" & Cells(2, Columns.Count).End(xlToLeft).Address)

total = Application.sum(Range("D:D")) - Val(Range("D1").Value)

Next ce

May I ask how do I apply the ce variable to substitute "D:D" and "D1"?
The loop is to loop through each column and assuming that I will be have column E,F,G etc.. to sum up.

Thanks

Hi Mike,
I understand that your code sums up the total of the entire worksheet then minus the sum of column A and C, but it also adds value from Column D onwards.

I need to find the sum of values in each column only.
May I know how can I alter the codes to meet the criteria?

Instead of summing D to IV etc..
I need to sum up values in column D, then values in column E etc...

Thanks