Excel-Macro bei Bedarf automatisch ausführen lassen

[Excalibur33]

Merci, tausendmal, du hast mir sehr geholfen.
Funkt schon.:Fehler war, der Code war erst im Modul. Jetzt in Tabelle 1 und es funkt damit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row =35 Then
Rows("33:33").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("B34").Select
End If
End Sub

mfg Excal