Count depth of Colored Cell

Using VBA how would count the depth of a colored cell?
regardless of the rows and columns, keeping within range
of A1 ... D50

First scenerio:

A B C D
1 Red
2
3
4 Red
5
A B C D
100 Count 1 4


Second scenerio:

A B C D
1
2
3
4 Red
5


A B C D
100 Count 0 4

Hoping you can combine scenerio First and Second.



With Thanks any Help