Insert and sum in empty cell

Hi,

I need help in writing the macro to do the following:

After sorting by column R, I need to insert a line between the groups,
and then sum the total of column M for both groups (see below)


Column M Column R
14.50 03COM
14.50 03COM
14.50 03COM
14.50 03COM
58.00 <-------------
14.50 05IT
14.50 05IT
29.00 <--------------

Can you please help me?

Thanks!

Take a look at Data > Subtotals > and follow the menus........

Vaya con Dios,
Chuck, CABGx3



"salsal" wrote:

> Hi,
>
> I need help in writing the macro to do the following:
>
> After sorting by column R, I need to insert a line between the groups,
> and then sum the total of column M for both groups (see below)
>
>
> Column M Column R
> 14.50 03COM
> 14.50 03COM
> 14.50 03COM
> 14.50 03COM
> 58.00 <-------------
> 14.50 05IT
> 14.50 05IT
> 29.00 <--------------
>
> Can you please help me?
>
> Thanks!
>
>

Thanks! That's good! But I need this to be written in a macro in order
to use it in other workbooks.

thx!

CLR wrote:
> Take a look at Data > Subtotals > and follow the menus........
>
> Vaya con Dios,
> Chuck, CABGx3
>
>
>
> "salsal" wrote:
>
> > Hi,
> >
> > I need help in writing the macro to do the following:
> >
> > After sorting by column R, I need to insert a line between the groups,
> > and then sum the total of column M for both groups (see below)
> >
> >
> > Column M Column R
> > 14.50 03COM
> > 14.50 03COM
> > 14.50 03COM
> > 14.50 03COM
> > 58.00 <-------------
> > 14.50 05IT
> > 14.50 05IT
> > 29.00 <--------------
> >
> > Can you please help me?
> >
> > Thanks!
> >
> >

Try this............

Sub SubtotalColumnM()
Application.DisplayAlerts = False
Columns("M:R").Select
Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(1, 6),
_
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("Q12").Select
Application.DisplayAlerts = True
End Sub

Vaya con Dios,
Chuck, CABGx3


"salsal" <[email protected]> wrote in message
news:[email protected]...
> Thanks! That's good! But I need this to be written in a macro in order
> to use it in other workbooks.
>
> thx!
>
> CLR wrote:
> > Take a look at Data > Subtotals > and follow the menus........
> >
> > Vaya con Dios,
> > Chuck, CABGx3
> >
> >
> >
> > "salsal" wrote:
> >
> > > Hi,
> > >
> > > I need help in writing the macro to do the following:
> > >
> > > After sorting by column R, I need to insert a line between the groups,
> > > and then sum the total of column M for both groups (see below)
> > >
> > >
> > > Column M Column R
> > > 14.50 03COM
> > > 14.50 03COM
> > > 14.50 03COM
> > > 14.50 03COM
> > > 58.00 <-------------
> > > 14.50 05IT
> > > 14.50 05IT
> > > 29.00 <--------------
> > >
> > > Can you please help me?
> > >
> > > Thanks!
> > >
> > >
>

Great! Thanks!

CLR wrote:
> Try this............
>
> Sub SubtotalColumnM()
> Application.DisplayAlerts = False
> Columns("M:R").Select
> Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(1, 6),
> _
> Replace:=True, PageBreaks:=False, SummaryBelowData:=True
> Range("Q12").Select
> Application.DisplayAlerts = True
> End Sub
>
> Vaya con Dios,
> Chuck, CABGx3
>
>
> "salsal" <[email protected]> wrote in message
> news:[email protected]...
> > Thanks! That's good! But I need this to be written in a macro in order
> > to use it in other workbooks.
> >
> > thx!
> >
> > CLR wrote:
> > > Take a look at Data > Subtotals > and follow the menus........
> > >
> > > Vaya con Dios,
> > > Chuck, CABGx3
> > >
> > >
> > >
> > > "salsal" wrote:
> > >
> > > > Hi,
> > > >
> > > > I need help in writing the macro to do the following:
> > > >
> > > > After sorting by column R, I need to insert a line between the groups,
> > > > and then sum the total of column M for both groups (see below)
> > > >
> > > >
> > > > Column M Column R
> > > > 14.50 03COM
> > > > 14.50 03COM
> > > > 14.50 03COM
> > > > 14.50 03COM
> > > > 58.00 <-------------
> > > > 14.50 05IT
> > > > 14.50 05IT
> > > > 29.00 <--------------
> > > >
> > > > Can you please help me?
> > > >
> > > > Thanks!
> > > >
> > > >
> >