VBA Code for sum function

[suresh ullanki]

Hi,

Can someone help with VBA code to sum three columns. have written code for one column which is working fine. sum formula should work individually for each column.
Sub add()
Range("a1").End(xlDown).Offset(1, 0).Select
ActiveCell = WorksheetFunction.Sum(ActiveCell.EntireColumn) + 1
End Sub

A	B	C
5	10	15
10	20	30
15	30	45
20	40	60
Need Sum Here	Need Sum Here	Need Sum Here

<colgroup><col span="3"></colgroup><tbody>
</tbody>

 

[My Aswer Is This]

Try this:

Sub Sum_Me()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Long
For i = 1 To 3
Lastrow = Cells(Rows.Count, i).End(xlUp).Row + 1
Cells(Lastrow, i).Value = WorksheetFunction.Sum(Range(Cells(1, i), Cells(Lastrow, i)))
Next
Application.ScreenUpdating = True
End Sub

 

[suresh ullanki]

Thanks for your support. It is working fine...

 

[My Aswer Is This]

Glad I could help you.

Thanks for your support. It is working fine...