For loop - data sortering VBA

Hej,

Jeg skal have sorteret en masse data i excel fra min til max, og skal bruge for loop til dette. Jeg kan ikke få det til at lykkedes, da den skriver "Fejl på kørselstidpunktet 6". Nogen som kan se, hvad der er galt?

Sub VBA_DataSorting()

Dim d As Integer
Dim e As Integer

Dim temp As Double
Dim rng As Range
Set rng = Range("D1").CurrentRegion
For d = 1 To rng.Count
    For e = i + 1 To rng.Count
    If rng.Cells(e) < rng.Cells(d) Then
    temp = rng.Cells(i)
    rng.Cells(d) = rng.Cells(e)
    rng.Cells(e) = temp
    End If
Next e
Next d
End Sub