Hi,

I have a table with values and I need to write a code to sum up the values in the rows under each column (starting from Column D). The no. of rows varies everytime. Does anyone know how to do that? .

Thanks in advance.

Sub myRowsSum()
Dim myRows As Integer

myRows = Range("A65000").End(xlUp).Row

Range("D" & myRows + 1).FormulaR1C1 = "=Sum(R1C4:R" & myRows & "C4)"

End Sub