Insertion ligne APRES dernière ligne saisie

[PtiCaro]

Bonjour forumeuses et forumeurs,
après plusieurs recherches sur ce site, je n'ai pas réussi à trouver comment insérer une ligne APRES la dernière ligne saisie dans mon tableau.
J'ai créé un bouton lié à une (toute) petite maro qui m'insère une ligne en recopiant formules et formats, et en effaçant les données déjà saisies, mais la ligne est toujours insérée au même endroit, voyez plutôt:

Sub Macro7()
'Macro7 Macro
'
Rows("20:20").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A21:G21").Select
Selection.Copy
Range("A20:G20").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False
Application.CutCopyMode = False
Range("A20").Select
Selection.ClearContents
Range("B20").Select
Selection.ClearContents
Range("C20").Select
Selection.ClearContents
Range("D20").Select
Selection.ClearContents
End Sub

Il est assez flagrant que mes connaissances en VBA sont inexistantes; quelqu'un peut-il m'aider à rendre cela moins "statique", et à aller chercher la dernière ligne remplie du tableau, quelque soit son N° ???
Merci

 

[dascoco]

Re : Insertion ligne APRES dernière ligne saisie

personne ne sait si cela est possible?