Navngiv variabelt celleområde

Til brug for LOpslag, har jeg behov for at navngive et celleområde vha. en makro

Se nedenstående :

    Range("B10").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range("B10", Range("B10").End(xlDown).Offset(0, 2)).Select
    ActiveWorkbook.Names.Add Name:="BalanceData", RefersToR1C1:= _
        "=Balance!R10C2:R1249C11"
    ActiveWorkbook.Save

Hvordan gereres den sidste, når celleområdet er variabelt ?

"=Balance!R10C2:R???????"