count rows down in column from blank to blank

[Danny54]

is there a function that I can insert that will count the # of rows containing data, counting downward until finding a blank row?

im using a vba script that builds the data and I i could insert somekind of function if there is one (perhaps?)


the data looks like this

Article ID
Blank
4018073
4057115
4474419
4512486
4516033
4516065
Blank
4474419
4512486
4516033
4516065
Blank
4018073
4057115
4474419
4512486
4516033
4516065
Blank
4018073
4057115
4474419
4512486
4516033
4516065

<colgroup><col></colgroup><tbody>
</tbody>

<colgroup><col></colgroup><tbody>
</tbody>

When done

Article ID
6
4018073
4057115
4474419
4512486
4516033
4516065
4
4474419
4512486
4516033
4516065
6
4018073
4057115
4474419
4512486
4516033
4516065
6
4018073
4057115
4474419
4512486
4516033
4516065

<tbody>
</tbody>

<colgroup><col></colgroup><tbody>
</tbody>

 

[Danny54]

That makes since

Again, thanks.

 

[Fluff]

You're welcome & thanks for the feedback

 

[Peter_SSs]

Seems like you have a solution that you are happy with but in case your column is is a column of formulas, some of which are returning "" and others returning numerical values then, if desired, you could keep formulas in the column as follows.

Sub CountRows()
  Dim rng As Range
  
  For Each rng In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlFormulas, xlNumbers).Areas
    rng.Cells(0).Formula = "=Count(" & rng.Address & ")"
  Next rng
End Sub