formule vba avec autofill variable

Bonsoir le forum,

savez-vous comment je peux remplacer :=Range("A1:A25") pour tirer jusque ou il y a des valeurs dans les colonnes à droite.
En fait, des fois cela peut être 25 lignes et une autre fois 40.
Merci de votre aide.


Sub formule_et_tire()

Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[1]&""-""&RC[2]&""-""&RC[3]&""-""&RC[4]"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A25")
Range("A1").Select

End Sub