AutoSum in VBA

[Tucker2008]

Hello,

How do I Sum each column in a range in VBA (I want the sum formula to be Last Row +1)...this code works perfectly for a single Column....but I cannot figure out the range:

'6.) Find the bottom row and sum

Sheets("Data2").Select
LastRow = Range("A2").Select
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("AY" & LR + 1).Formula = "=SUM(AY2:AY" & LR & ")"

Any help would be appreciated.

TM

 

[RoryA]

Let's say you want 5 columns from AY to the right:

Range("AY" & LR + 1).Resize(1, 5).FormulaR1C1 = "=SUM(R2C:R[-1]C)"

 

[Tucker2008]

RoryA - Works perfectly, thank you very much.