Autosort af kolonne ?

Hej,
Jeg fik hjælp her med mit tidligere problem
http://www.eksperten.dk/spm/1005916

Men nu mangler jeg en kode at skrive som sortere altid i kolonne "E" A--->Z lige meget hvor mange rækker jeg har i en fil
altså det er forskellige række antal som er i de filer jeg køre min macro på.

Ved ikke om der findes noget som dette med autosort ?

Sub AutoSum()
    Dim i As Integer

    For i = 2 To 4
    With Cells(Rows.Count, i).End(xlUp)
        .Offset(1).Formula = "=SUM(" & Cells(1, i).Address & ":" & .Address(0, 0) & ")"
    End With
    Next

End Sub