Sorting between bold rows?

Greetings:

I have a report that comes out of my financial software and it has a column with a sales rep's name and then all of the accounts that rep has. Then there is a row that is bold and is the totals for that rep. Then the very next row is not bold and it's the next sales rep's accounts. Then a total... That column would look something like this:

Joe Smith
Account 1
Account 2
Account 3
Joe Smith Total
Tim Jenkins
Account A
Account B
Account C
Tim Jenkins Total

It goes on and on. Of course, column B just has sales data in it.

What I want to do is write a macro that selects the rows for Joe Smith (that aren't header rows so Account 1-3) and then sorts based on column B sales.

Then it would skip down and select Account A-C rows and sort again. That way I have all my reps with their highest account at the top of their section. I do this manually now and it takes hours to do my reporting.

Any tips would be GREATLY appreciated!

create a pivot table

That's not an option since this file goes up the ladder to my bosses and has to be in this format. I really just need to sort between those bold fields.

Hi,
You can try the following codes.

Public Sub SortBold()
Dim myR As Range
Dim LastR
Dim startRow
Dim endRow
Dim i
LastR = Cells(Rows.Count, 1).End(xlUp).Row
startRow = 1
For i = 2 To LastR
    If Cells(i, 1).Font.Bold = True Then    'Bold
        If startRow = 0 Then
            startRow = i
        Else
            endRow = i
            Set myR = Range(Cells(startRow + 1, 1), Cells(endRow - 1, 2))
            myR.Sort key1:=Range("B:B"), header:=xlNo
            startRow = 0
            endRow = 0
        End If
    End If
Next
End Sub

Good Luck!
Tony