Record a macro when you sort by both keys.

Then modify this portion:

.Columns("A:F").Sort _
Key1:=.Range("A1"), Order1:=xlAscending, _
Key2:=.Range("B1"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Maybe it's just swapping key1 and key2?????

RompStar wrote:
>
> so I commented out the insert row part of the vb code and only wanted
> to see if the sorting works,
> it sorts, but not correctly, it sorts the same name maybe 5 rows and
> then it goes to the next,
> and then it eventually starts to sort the same name again, it doens't
> sort them all
> in one shot and then go to the next, the sort is kinda broken apart
> sort, not even all the way through ?
>
> any ideas why ?

--

Dave Peterson