Makra - jak rozkopírovat na nekonečný počet řádků

Jasnovidecky usudzujem ze asi pises o MS excel
http://books.google.de/books?id=JTg7HvmxEKYC&pg=PA 89&lpg=PA89&dq=excel+cykly&source=bl&ots=pSQatA8LM L&sig=jWnjvGqOX8NT0n1FtxsZyMzzF5k&hl=sk&sa=X&ei=KE FpU-eWFqm7yAPll4DIDA&ved=0CGIQ6AEwBQ#v=onepage&q=e xcel%20cykly&f=false

Díky, já jsem si dokonce všimla, že jsem tam ten excel zapomněla uvést, ale pak jsem si řekla, že to z toho tak nějak vyplývá.

Jinak to je přesně to, co jsem hledala, jen je to pro mě španělská vesnice.

Řekněme, že chci tedy upravit kód z výše vymyšleného příkladu:
(Vím, je to ošklivé, šlo by to líp, ale já všechny ty úpravy nahrávala jako záznam makra, takže vypadají takhle.)

  Range("B5:C5").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("B6").Select

Kód chci opakovat, dokud nenarazím na konec tabulky (tedy na prázdnou buňku Bněco).
Prosím, co je tam špatně? Nějak vůbec nejsem schopná to vymyslet.

Sub Makrox1()

i = 5

Do Until IsEmpty(List1.Cells(B, i)) = True

   Range("B5:C5").Select
   With Selection
       .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlBottom
       .WrapText = False
       .Orientation = 0
       .AddIndent = False
       .IndentLevel = 0
       .ShrinkToFit = False
       .ReadingOrder = xlContext
        .MergeCells = True
   End With
    Range("B6").Select
i = i + 1
Loop

End Sub

Tak namiesto
Range("B5:C5").Select
musis pouzit to i a ne 5 (samozrejme neda sa napisat Bi ale musis tam pouzit nejaku funkciu na to)

Range("B6").Select je tam uplne zbytocne by som povedal.

Jakou funkci? Já to vážně neovládám tak dobře. :(

No musíš využít funkce CELLS(<row>,<col>), která odkazuje na buňku pomocí čísla řádku a čísla sloupce (takže to "Cells(B, i)" máš špatně).
Dále funkce RANGE je schopna pracovat nejen s řetězcem ve tvaru "<adresa1:adresa2>", ale i s odkazy na první a poslední buňku v oblasti - tj. RANGE(<odkaz_na_prvni_buňku>, <odkaz_na_posledni_buňku>).
Takže když ty dvě funkce (RANGE a CELLS) zkombinuješ, budeš místo
RANGE("B5:C5")
psát
RANGE(CELLS(i,2), CELLS(i,3))
A testovat budeš samozřejmě CELLS(i,2).
A z celý "vopičárny" With - End With je důležitej ten poslední příkaz (MergeCells = True), vše ostatní můžeš vyhodit (teda pokud nechceš měnit zarovnání apod.). Tím se ten With - End With stane zbytečným, takže můžeš rovno psát jedinej příkaz:
RANGE(CELLS(i,2), CELLS(i,3)).MergeCells = True

Jojo, to

End With
    Range("B6").Select

je tam zbytečně, vím, umažu.

googlis si slova excel select range with variable a najdes napr.
291308

3: ako vyberte bunku v pracovnom hárku v inom zošite
Vyberte rozsah C2:D10 na aktívnom hárku, môžete použiť niektorý z nasledujúcich príkladov:

ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select

P.S> v tvojom pripade Bi:Ci (B je 2 a C je 3) to bude asi
ActiveSheet.Range(Cells(i, 2), Cells(i, 3)).Select

A to List1.Cells(B, i) asi bude tiz blbo, povedal by som ze skor by to malo byt Cells(i,2) podla tych microsoftich popisov. Nerobim s MS pouzivaj referencne popisy k VBS, najdes si googlom, tam je vsetko napisane.

Super, díky oběma! Funguje! Teď už to jen aplikovat na můj mnohem složitější případ. Ale ten způsob vybírání buněk mi fakt pomohl.