sombreado contar

Hola a todos, estoy trabado con una tontera, hace mucho que no escribo nada. Un salvavidas please! Sub ContarColores() Dim T As Range Dim U As Range For Each T In Range("a5:a1194") contador = 0 For Each U In Range("a & T.Row:r ...