2003

Would like to issue a sort command in VBA that would 1st sort on
Left(AccountNum),4) + Mid(AccountNum,6,2) then 2nd on Date.

In VBA, is it possible manipulate the the following code to achieve
above:

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("I2"), Order2:=xlAscending, HEADER:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom,
DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortNormal

-OR-

Must I use a helper column in Excel?

TIA EagleOne