Sumproduct subtotal filter count only bold cells

Need custom Formula to count only bold cells in a filtered column - using a sumproduct with subtotal

My report uses TSQL to bring data from a database and then uses VBA to create a Excel report. The report has an auto filter across the columns.
The records returned are bolded for the first instance of a name, and the second instance is a light gray.
The Excel cell B4 has a formula that counts the visible rows for the text matching in A4.

Now, I need to only count the bold cells.
Shown is the working formula in the Cell. The working code that puts the formula in the cell, and a small screen shot.

My guess is that some kind of conditional format need to be embedded in the subtotal section. Any suggestions would be appreciated.

Excel cell B4 contains

Please Login or Register  to view this content.

VBA code counts recordset (intMaxRecordCount) and generates dynamic formula

Please Login or Register  to view this content.

The Gif mentioned above is here

Got the solution. Will modify my OBXL string and add two more line of code before it.
It won't require a UDF (user defined function) with all the macro workbook mess.

Was watching the series Starhunter 2300 "Just Politics" last night on NetFlicks for the first time (catching up with series I completely missed).
The Wave Overlay programming concept used as the centerpeice of the episode gave me the idea for the solution.
Can use the formula posted above with some very slight modifications.

Couldn't find any solutions other than a UDF anywhere. And, UDF won't necessarly update in a dynamic way.
This solution will be dynamic, and only count the bold rows that are visible, and won't show an error if zero rows.