If Schleife spingt einfach raus

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
Range("G3").Activate
es geht dann weiter das er Zellen einfügt.
Dann möchte ich die Zellen wieder ausblenden.
Sub Ausblenden()
Dim i As Integer
Sheets("Vor1").Activate
Range("A3").Select
i = 0
Do Until i = 20
If ActiveCell.Value = "l" Then
Range("A" & i) = "e"
Selection.EntireRow.Hidden = True 'bei dieser Zeile geht er zum Anfang!
ActiveCell.Offset(3, 0).Select
i = i + 1
Else
ActiveCell.Offset(3, 0).Select
i = i + 1
End If
Loop
End Sub