auto sum macro

[gittymoe]

I have been looking for a macro that will auto sum columns with variable lengths. Can someone point me in the right direction.

Thank You,

Don't sweat the small stuff just pet the sweaty stuff

 

[Scott Huish]

Why do you need VBA?

In a different column, try something like this:
=SUM(A:A)

 

[gittymoe]

I am using this in a macro that I have recored and although the layout of the spreadsheet is the same the length of the columns is variable....For example

Column A may be 25 rows one week and then the next week it may be 100 rows. I am looking for a VBA code that will sum at the end of 25 rows just the same as 100 rows.


Thank You,


Judd

 

[erik.van.geit]

Judd,

seems like you are giving a bit more info, but you're not even replying to Hotpeppers suggestion
if you cannot use it, then explain why ?

I can guess from what you're writing ,that you want to put the SUM just beneath the data, but you were not clear about that

kind regards,
Erik

 

[texasalynn]

here is a macro that will put in the sum at the point of the cursor

Sub AutoSum_Formula()
    Dim x As String
    Dim y As String
    
        x = ActiveCell.Offset(-1, 0).End(xlUp).Address
        y = ActiveCell.Offset(-1, 0).Address
        
        ActiveCell = "=Sum(" & x & ":" & y & ")"
        
End Sub

 

[gittymoe]

Thanks Guys this works great.


Dim x As String
Dim y As String

x = ActiveCell.Offset(-1, 0).End(xlUp).Address
y = ActiveCell.Offset(-1, 0).Address

ActiveCell = "=Sum(" & x & ":" & y & ")"