How to make a Code/Script for calculating values filtered by background colour

[doc_n0rex]

Hello people,
I'm new here so forgive me when I'm posting in the wrong section...
I'm trying to calculate the weight of different coins that I have listed.
I've given different material types of the coins a colour for each type.
In this case I would like to calculate the weight of different silver coins by using their background colour.
All values are in column "H".
At the bottom of the sheet you can see the different materials, so in "H100" i would like to see how many different coins I have with that type of silver.
In "I100" I would like to see the total weight of those same coins.
Online I've found a code that would normally do the trick but because I'm using "merged cells" it gets calculated all wrong...
Ideally would be a code where I could select the entire column "H" as all data regarding weight is in this column.

This is the code i've tried but failed:

Function SOMZELFDEKLEUR(Gebied As Range, Cel As Range) As Double 
Dim Kleur As Integer 
  Application.Volatile 
  Kleur = Cel.Interior.ColorIndex 
  For Each Cel In Gebied.Cells 
    If Cel.Interior.ColorIndex = Kleur And IsNumeric(Cel.Value) Then 
      SOMZELFDEKLEUR = SOMZELFDEKLEUR + Cel.Value 
    End If 
  Next Cel 
End Function  

There's this SUBTOTAL function too but it's limited to 250 or so cells, if possible I would like an entire column

If anybody could help me out... well that would make my year !!
I'm no expert at all
Regards,
doc