VBA code to sum unknown rows

[ming15]

Hi:

I have a column that pulls data and could change in the amount of rows that are populated, what I would like is a code that is flexible to insert a sum formula of the column after the last populated cell. Can anyone help?

 

[Scott Huish]

I used column A, change as necessary:

Sub test()
Dim c As Long
c = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & c + 1).Formula = "=SUM(A1:A" & c & ")"
End Sub

 

[ming15]

Thank you so much you are an angel