Try

=SUMPRODUCT((B4:B200="DT")*(MONTH(I4:I200)=6)*(H4:H200))
VBA Noob