While IsEmpty(ActiveCell.Value) = False
  ActiveCell.Offset(1, 0).Select
  Zähler = Zähler + 1
Wend

'Solange in der Zelle was drinsteht, eine Zelle nach unten
'und den Zähler um eins erhöhen.
'Solange, bis er eine leere Zelle gefunden hat.