Try

=SUMPRODUCT(--(MONTH(B4:B33)=1)*(A4:A33=1))

VBA Noob