Subtotal formats

[LC]

Hi

what I have is this:

*num is a variable for where the column of the array
should start..

Dim varr()
Dim rng As Range, i As Long
Set rng = Range("IV1").End(xlToLeft)
ReDim varr(1 To rng.Column - num)

For i = 1 To rng.Column - num
varr(i) = i + num
Next
ActiveCell.Range("A3").Select
Selection.subtotal GroupBy:=groups, Function:=xlSum, _
TotalList:=varr, Replace:=False, PageBreaks:=False, _
SummaryBelowData:=True

Questions: Can I write the above subtotal function in a
different format? and Can I disable the grand total
summary from the subtotal function
If you could help me with that, that would be wonderful.

Thank you.