Audrius rašė:
>> Set rng =
>> Range(""O5,O48,O91,O134,O177,O220,O263,O306,O349,O392,O435,O478,O521,O564,O607,O650,O693,O736,O779,O822,O865,O908,O951,O994,O1037,O1080,O1123,O1166"")
>
>>
> Ar čia tirai tikslu? Tipo neturi būti vienoje eilutėje ir po vieną
> kabutę? Nes kitaip man šitas eilutes iš karto žymi raudonai.

Papildomos kabutės per copy/paste prisikabino.

> Na pasitaisiau, bet dabar iškilo kitas klausimas. Ar šitas „Range“
> turi kažkokį tai eilučių limitą? Matai pas mane jų daugiau, viso 49
> eilutės, o leidžia įrašyti tik 47eilutes. Ta rasme jog su įrašytomis
> 47 eilutėmis viskas veikia, o kai įrašai 48 eilutę, iš karto meta
> klaidą. Gal yra kokia išeitis?

Dokumentacijoje įvardinto limito nematau. Pabandžiau su 60 — veikia 
(off2k3).
Jei yra koks apribojimas eilutės ilgiui, tai gali pabandyti
apjungti kelis range'us su Application.Union()