Gestion de la quantité de cellule en VBA

Bonjour,


j'essaye de faire via VBA une série de vlookup via l'enregistreur de macro
cela fonctionne mais j'ai du mal à gérer la fin des cellules
Selection.AutoFill Destination:=Range("G2:G50609")
le nombre de lignes de mon fichier peux varier
il peut 50 609 ou bien une autre quantité de ligne
existe il un moyen de prendre en compte toute les lignes ayant un uniquement un contenu

Columns("G:G").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],table_1!C3:C5,3)"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G50609")
    Range("G2:G50609").Select
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],table_2!C3:C4,2,FALSE)"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H50609")
    Range("H2:H50609").Select
    Range("H2").Select

merci