Guten Abend liebe VBA-Gemeinde.

Ich zerbreche mir gerade den Kopf bei folgendem Problem.

Ich möchte in einem flexiblen Bereich in einer Spalte alle befüllten Zellen zählen und diesen Wert an eine Variable weitergeben.
Der Bereich wäre "B6 bis "Bx", wobei x variabel ist (x = letzte befüllte Zelle in Spalte B).

Habe mit dem Makrorekorder die Formel in eine Zelle geschrieben, aber das Ergebnis bringt mich nicht weiter.
ActiveCell.FormulaR1C1 = "=COUNTA(R[-16]C[-3]:R[-1]C[-3])"

Wie gehe ich hier vor, wenn es so aussehen soll:
variable = Formel       also z.B.     VolleZellen = CountA (B6 bis Bx)

Danke für eure Hilfe.
Gruß, Andy