Excel VBA, automatisches einfügen einer Zeile

Hallo liebe Mitglieder,
ich habe bei Excel ein Problem mit einem Makro. Ich möchte in einer Excel-Rechnung beim verlassen einer bestimmten Zelle eine neue Zeile einfügen. Das habe ich soweit schon geschafft, allerdings ist das ganze nur statisch und funktioniert nur beim verlassen dieser einen Zelle. Ich möchte das aber so haben, das die neue Zeile immer dann eingefügt wird, wenn man die Zellen der Spalte „E“ ab Zeile 31 ff. verlässt, anbei mal das Makro:

Public StAdresse As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If StAdresse = „$E$31“ Then
StAdresse = „“
ActiveSheet.Unprotect
Rows(„31:31“).Select
Selection.Copy
Rows(„32:32“).Select
Selection.Insert Shift:=xlDown
Range(„A32“).Select
Application.CutCopyMode = False
Selection.ClearContents
Range(„B32:C32“).Select
Selection.ClearContents
Range(„D32“).Select
Selection.ClearContents
Range(„E32“).Select
Selection.ClearContents
Range(„A32“).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
StAdresse = ActiveCell.Address
End Sub

Hat jemand eine Idee wie ich das lösen kann?

Grüße
T.F

Sorry, dass ich nicht geantwortet habe, war im Urlaub.
Gruß
Mike