Dynamic autosum across macro

Why doesn't this work? (Can't view the report by the way).

For Each NumRange In Rows(5).SpecialCells(xlConstants, xlNumbers).Areas
        SumAddr = NumRange.Address(False, False)
        NumRange.Offset(0, NumRange.Count).Resize(6, 1).Formula = "=SUM(" & SumAddr & ")"
        c = NumRange.Count
    Next NumRange

Select allOpen in new window

Of course the 5 should be the right row number.

hmm this seems to work but if i have a varying number of rows, what do i do?

sometimes i may have 4 rows others can be in 10 or greater.

Just add more rows...

Range("5:10")

HTH

That might attach areas. Try

For i = 5 to 10
For Each NumRange In Rows(i).SpecialCells(xlConstants, xlNumbers).Areas
        SumAddr = NumRange.Address(False, False)
        NumRange.Offset(0, NumRange.Count).Resize(6, 1).Formula = "=SUM(" & SumAddr & ")"
        c = NumRange.Count
    Next NumRange
Next

Select allOpen in new window

Thank you TommySzalapski for you code.  I'm not sure if i'm implementing it correctly.

I can get it to Sum across but not for all my records.  The "6" in "Resize(6, 1)"  seems to limit only the summation of 6 records.  Is there a variable i can use here to sum exactly the number of records?  (whether it's 1 or 1000 records)  (is this even possible?)

I've added an image of my table, in hopes to illustrate my issue better.

The total across will always appear in Column G.  

The number of records can range any where from 1 to several thousand.

 

Ah. Now that I can see your data. Use this.

Dim i As Integer, lastrow As Integer

lastrow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lastrow

For Each NumRange In Rows(i).SpecialCells(xlConstants, xlNumbers).Areas
        SumAddr = NumRange.Address(False, False)
        NumRange.Offset(0, NumRange.Columns.Count - NumRange.Column + 2).Formula = "=SUM(" & SumAddr & ")"
        c = NumRange.Count
    Next NumRange
Next

Select allOpen in new window

I feel like we're on the right track.

That seems to work, Column G seems to have the right value.  However, it seems to overwrite columns H-K with a formula as well.
I've added screen caps of what's happening with the macro and what should be happening.

 
I greatly appreciate you help with this.

OMG!!! That worked perfectly!!!

Thank you,

TommySzalapski, thank you for your help.

I have another, VBS question posted.

https://www.experts-exchange.com/questions/26624318/Separate-Documents-Macro.html

would you mind checking to see if you can assist me here as well?