Count # Of Cells Minus Red Cells VBA

I have tried to figure out how to count all cells in a column and subtract any cells that contain characters with a red font. I'll attach an example. I need code that will work in VBA so that in the case that the column does not contain any cells with red numbers it won't come up with a debug error.

In excel I normally do this manually with this formula: =count("") I normally highlight all cells except the red ones. See attachment for example.

Also, the # of rows is never the same. Some files will be 100 rows, some will be 1000, depending on the store's file we get. so the code would probably have to contain something like .lastactiverow or something.