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