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


[TABLE="width: 83"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Article ID[/TD]
[/TR]
[TR]
[TD]Blank[/TD]
[/TR]
[TR]
[TD]4018073[/TD]
[/TR]
[TR]
[TD]4057115[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
[TR]
[TD]Blank[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
[TR]
[TD]Blank[/TD]
[/TR]
[TR]
[TD]4018073[/TD]
[/TR]
[TR]
[TD]4057115[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
[TR]
[TD]Blank[/TD]
[/TR]
[TR]
[TD]4018073[/TD]
[/TR]
[TR]
[TD]4057115[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 83"]
<colgroup><col></colgroup><tbody>[TR]
[TD] [/TD]
[/TR]
</tbody>[/TABLE]
When done

[TABLE="width: 83"]
<tbody>[TR]
[TD]Article ID[/TD]
[/TR]
[TR]
[TD]6 [/TD]
[/TR]
[TR]
[TD]4018073[/TD]
[/TR]
[TR]
[TD]4057115[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
[TR]
[TD]4 [/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
[TR]
[TD]6[/TD]
[/TR]
[TR]
[TD]4018073[/TD]
[/TR]
[TR]
[TD]4057115[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
[TR]
[TD]6[/TD]
[/TR]
[TR]
[TD]4018073[/TD]
[/TR]
[TR]
[TD]4057115[/TD]
[/TR]
[TR]
[TD]4474419[/TD]
[/TR]
[TR]
[TD]4512486[/TD]
[/TR]
[TR]
[TD]4516033[/TD]
[/TR]
[TR]
[TD]4516065[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 83"]
<colgroup><col></colgroup><tbody>[TR]
[/TR]
</tbody>[/TABLE]

 

[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