Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Sum a Range

Public Sub SumRangeTest()   Dim aRange As Range      With ActiveCell     Set aRange = Range(.Offset(1), .Offset(1).End(xlDown))     .Formula = "=SUM(" & aRange.Address(RowAbsolute:=False,ColumnAbsolute:=False) & ")"     .Copy Destination:=Range(.Cells(1), .Offset(1).End(xlToRight).Offset(-1))   End With    End Sub