VBA Help

[Marino M]

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

 

[Bob Phillips]

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