Schleifenproblem

Sub testkomplett2()
Dim i As Long, ZL As Long
Dim Aname As Integer, Bname As Integer
ZL = ActiveSheet.UsedRange.Rows.Count
Range("a2").Select
For i = 1 To ZL
lj1name = ActiveCell
lj2name = ActiveCell.Offset(0, 1)
If StrComp(lj1name, lj2name, vbTextCompare) = 0 Then
ActiveCell.Select
End If
If StrComp(lj1name, lj2name, vbTextCompare) = 1 Then
Selection.Insert shift:=xlDown
End If
If StrComp(lj1name, lj2name, vbTextCompare) = -1 Then
Selection.Offset(0, 1).Insert shift:=xlDown
End If
Next i
End Sub

Das tut es aber nicht.
Wenn ich das Makro Zeile für Zeile (Bereich zw. den Leerzeilen) aufrufe dann tut es das richtige - woran liegt es?
Gruß lobby007