etendre une macro jusqu'à la dernière cellule non vide

Bonjour à tous,

Tout est dans le titre.

J'utilise le code suivant pour étendre une série de formules :
copier_coller Macro

Range("D22").Select
Sheets("source").Select
Range("H1:M2").Select
Selection.Copy
Sheets("Export").Select
Range("H1").Select
ActiveSheet.Paste
Range("H2:M2").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("H2:M1876")
Range("H2:M1876").Select
Range("H2").Select

End Sub

Le copier_coller se fait donc de la ligne "2" à la ligne "1876"

Je souhaiterais adapter ma macro afin que la limite ne soit plus "M1876" mais la dernière cellule remplie.

S quelqu'un peut m'aider dans la modification, se serait le top; sachant que je suis un gros nul en VB.

Par avance, un grand merci à tous ceux qui prendront le temps de me lire.