това датите в ексела са кошмарна работа

замени този ред
If Cells(i, 2) = ComboBox1.Value And Cells(i, 3) = d Then br = br + 1

с този
If Cells(i, 2) = ComboBox1.Value And Left(Cells(i, 3), 10) = Left(d, 10) Then br = br + 1
надявам се, че така ще ти се получи. И още нещо първо избирай дата после име защото иначе дава грешка. Не ми се играе да я игнорирам. Ще те объркам още повече.