VBA Count cells in column containing specified value

Мне нужно написать макрос, который ищет указанный столбец и подсчитывает все ячейки, содержащие указанную строку, например "19/12/11" или "Green" затем связывает это число с переменной,

Есть ли у кого-нибудь идеи?