I have a situation here.
1.) I need to select a range of cells,
2.) count the number of cells in the range that contains values and also
3.) count the number of cells in the range that have a RED fill

How do I accomplish this? This is what I have so far:
marketWS.Range("D6:BG" & marketCurrRow - 1).Select
With Selection
cnt = .Cells.Count
End With
marketWS.Range("M1") = cnt

But cnt is counting all the cells in the range("D6:BG" & marketCurrRow - 1)
but I only want to count the cells that have values in them. Any ideas?
Thanks.