Office: VBA anzahl einträge zählen bis...

hallo experten,

habe folgendes problem:

ich würde gerne die anzahl der einträge innerhalb einer spalte zählen. allerdings ist dazuzusagen, dass sich die einträge im laufe der zeit erweitern. meine bisherige syntax:

'Anzahl der Einträge ermittelen
i = 0
zähler = 0
Do While Sheets("Summary matrix").Cells(6 + i, 1).Value = "=COUNTBLANK(A[6]C[1]:R[6+i]C[1])" = 1
'Do While Sheets("Summary matrix").Cells(6 + i, 1).Value > 0
zähler = zähler + 1
i = i + 1
Loop
Sheets("Summary matrix").Cells(6, 15).Value = zähler

nun möchte ich aber verhindern, dass auch werte in der spalte als eintrag gezählt werden, in denen beispielsweise ein leerzeichen steht oder die zelle leer ist.

hätte jmd ein paar vorschläge?

vielen dank!