Hi,

I have a list of clients with their associated outstanding dollar
amount and their return (%). I would like to know if there is code
that would allow me to break up these clients by return (%) groupings.
For example, I would like to group below 10%, 10% to 17%, and above
17%. So at the client on the list that is just before 10% I would
like to add two rows and put a dollar subtotal in the immediate row
and sum the dollar amounts.

Can anyone help?

Thanks,

Marino

Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim LastRow As Long
Dim TotalsRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
TotalsRow = LastRow + 1
i = LastRow
Do While .Cells(i, "C").Value > 0.17
i = i - 1
Loop
.Cells(TotalsRow, "B").Value = "=SUM(B" & i + 1 & ":B" & TotalsRow -
1 & ")"
.Rows(i + 1).Resize(2).Insert

TotalsRow = i + 1
Do While .Cells(i, "C").Value > 0.1
i = i - 1
Loop
.Cells(TotalsRow, "B").Value = "=SUM(B" & i + 1 & ":B" & TotalsRow -
1 & ")"
.Rows(i + 1).Resize(2).Insert
TotalsRow = i + 1
.Cells(TotalsRow, "B").Value = "=SUM(B2:B" & TotalsRow - 1 & ")"

End With

End Sub

--
__________________________________
HTH

Bob

"Marino M" <marino.manocchio@gmail.com> wrote in message
news:ca81aa11-cdb8-4a4a-9e4c-8d9c42cc9fb5@j22g2000hsf.googlegroups.com...
> Hi,
>
> I have a list of clients with their associated outstanding dollar
> amount and their return (%). I would like to know if there is code
> that would allow me to break up these clients by return (%) groupings.
> For example, I would like to group below 10%, 10% to 17%, and above
> 17%. So at the client on the list that is just before 10% I would
> like to add two rows and put a dollar subtotal in the immediate row
> and sum the dollar amounts.
>
> Can anyone help?
>
> Thanks,
>
> Marino