$selection->Subtotal(1,xlCount,3,1,1,1);