Another way?

Formula: copy to clipboard
=SUMPRODUCT(--(SUBSTITUTE(UPPER(A1:A31),"H","")))