Autosum with vba

[iffi]

starting point is fixed that is D1 but ending point is not fixed, it depends on the data, it can be any range, i want autosum after one row where the data ends, example From D1 and if data ends till D80 then autosum should be in D82, and if data ends till D120 then autosum should be in D122.
what could be the code for this ? Thanks

 

[Norie]

Something like this perhaps?

Range("D" & Rows.Count).End(xlUp).Offset(2).FormulaR1C1 = "=SUM(R2C:R[-2]C)"

Note this assumes you would want to sum D2 to the last row of data.

 

[VoG]

Try

Sub Asum()
Dim LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
Range("D" & LR + 2).Formula = "=SUM(D1:D" & LR & ")"
End Sub

 

[Norie]

Oops, thought you had a header.

Change R2C to R1C.

 

[Yahya]

and try this

Sub AuotSum()
Dim LR As Long
LR = Range("d" & Rows.Count).End(xlUp).Row
Range("d" & LR + 2).Value = Application.WorksheetFunction.Sum(Range("D1:D" & LR))
End Sub

 

[iffi]

Thanks VoG and Norie, Both codes r working great. Thanks

 

[iffi]

Thanks Yahya, this code is working fine too.