It should be
ActiveSheet.Sort Key1:=activesheet.Range("A2"), order1:=xlascending, dataoption1:=xlsortnormal