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