So far this is the only one that has hit. I'm expecting
more. But here it is.

Range("=Offset(I4,,,CountA(I:I),-9)").Sort Key1:=Range
("A4"), Order1:=xlAscending, Key2:=Range _
("B4"), Order2:=xlAscending, Key3:=Range("H4"),
Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

Thanks for looking
Chris