décaler la plage de données

[jad73]

bonjour le forum
j'ai un code çi-dessous qui décale d'une ligne vers le bas ma plage de données mais seulement quand j'enregistre mon classeur,serait-il possible de faire décaler ma plage(tab1)chaque fois que je rentre une données en "A2:F2" et que le curseur se repositionne en A2.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Worksheets("tab1").Activate
Range("A2:F2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Insert Shift:=xlDown
Range("A2").Select
End Sub

merci