Macro copie de cellule dans une autre feuille

Bonjour a tous
voila cela fait plusieurs jours que je cherche a copier trois cellules d une feuille appelée facture ( ou les données varies a chaque nouvelle facture ) vers une autre feuille appelée liste facture ou je référence dans un tableau la date, le N° de facture, le nom du client, et le montant total,( en gros un listing de toute les factures éditées)
mon problème est que je veux automatiser cette étape par une macro et que lorsque je lance ma macro il réenregistre sur la même ligne que la facture d avant

donc j aimerais savoir comment faire enregistrer mes données a une nouvelle ligne vide de mon tableau


merci d avance de votre aide ou de toute les pistes que vous pourrez m apporter !!!

voici mon code

Sub enregistrercellule()
'
' enregistrercellule Macro
'



'
ActiveWindow.SmallScroll Down:=12
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste Facturations").Select
Range("B2").Select
ActiveSheet.Paste

Sheets("Factures Clients").Select

ActiveWindow.SmallScroll Down:=-12
Range("D9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste Facturations").Select
Range("D2").Select
ActiveSheet.Paste

Sheets("Factures Clients").Select

Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste Facturations").Select
Range("F2").Select
ActiveSheet.Paste

Sheets("Factures Clients").Select

Range("E27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste Facturations").Select
Range("G2").Select
ActiveSheet.Paste
End Sub