Back

Sub Summing_Macro()
' Written by Barrie Davidson
Dim Last_Row As Long
    
   Last_Row = ActiveSheet.UsedRange.Rows.Count
   Range("C1:C" & Last_Row).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
   Range("C1").Select
   Range("C1").Select
   
End Sub

Again, more efficient code thanks to my anonymous friend!

Copyright ^© 2001 by Barrie R. Davidson
Added April 6, 2001