Taks to napasoval blbě (pokud neuvedeš kód, nic jiného Ti říct nemůžeme). Cpát do toho cykly je zbytečný zpomalení. Tento kód:

PosledniPlnyRadek = Range("A1").End(xlDown).Row ' Ve sloupci A 
PrvniPrazdnyRadek = PosledniPlnyRadek + 1 
MsgBox "První prázdný řádek má číslo: " & PrvniPrazdnyRadek

prostě musí fungovat!
Jen musíš v prvním řádku místo "A1" zvolit tu správnou buňku. Jediná komplikace spočívá v tom, že pro správnou funkci výše uvedeného kódu musí sloupec obsahovat souvislý blok obsazených buněk. Tzn. - pokud třeba máš první řádek prázdný, pak máš v řádcích 2 a 3 nějaké záhlaví tabulky, pak opět 1 řádek prázdný, a teprve od pátého řádku jsou již obsazené buňky souvislé, tak v příkazu místo "A1" napíšeš "A5".