Try this:

Cells.Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlYes