Subtotal Error

[mzsuga]

I have this, then I run the macro but I get an error. Its to subtotal by column A then total only specific columns in that subtotal.

With Worksheets("Summaries")
Dim Subrg As Variant
subrg = Range("A1").CurrentRegion
Range(subrg).Subtotal Groupby:=1, Function:=xlSum, totallist:=Array(2,3,5,6,15,21)
End With

[Bob Phillips]

Maybe this will help



With Worksheets("Summaries")
Dim Subrg As Variant
subrg = .Range("A1").CurrentRegion
.Range(subrg).Subtotal Groupby:=1, Function:=xlSum, totallist:=Array(2,3,5,6,15,21)
End With

[mzsuga]

Maybe this will help



With Worksheets("Summaries")
Dim Subrg As Variant
subrg = .Range("A1").CurrentRegion
.Range(subrg).Subtotal Groupby:=1, Function:=xlSum, totallist:=Array(2,3,5,6,15,21)
End With


I tried that but it still gives me an error.

[Bob Phillips]

If this doesn't work, does your region have 21 columns?



With Worksheets("Summaries")
Dim Subrg As Range
Set Subrg = .Range("A1").CurrentRegion
.Range(Subrg).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 5, 6, 15, 21)
End With

[mzsuga]

If this doesn't work, does your region have 21 columns?



With Worksheets("Summaries")
Dim Subrg As Range
Set Subrg = .Range("A1").CurrentRegion
.Range(Subrg).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 5, 6, 15, 21)
End With


Yes it has 21 columns, but the column headings start at row5

[Aussiebear]

Try changing the line to reflect the starting point for the currrent region;

Set Subrg = .Range("A5").CurrentRegion