Insérer une ligne au-dessous automatiquement

bonjour
je suis débutent sur excel :oops:
j'ai trouvais un macro pour insérer une ligne mais le problème je dois toujours sélectionner la dernière ligne et en plus il m'insérer la ligne au dessus.

Sub Bouton4_Cliquer()
With ActiveCell
        xLig = .Row
        .EntireRow.Insert Shift:=xlDown 'Insert une ligne au dessus
        .EntireRow.Copy ' Copie la ligne active
        With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteFormulas
        End With
        Application.CutCopyMode = False
    End With
    Range("DA" & xLig) = "SURGESTION"
End Sub

Comment adapter se macro pour insérer une ligne au-dessous de la dernier ligne son la sélectionner.?
Es ce que je peut avoir se macro son buttons, par exemple une fois écrire une ligne l'autre s'insérer automatiquement.?
merci