Goal seek for two cells

Hello everyone
I have two constants in B10 and C10 ( 185 and 21.6)

In the cells (D10 & E10 & F10) I need to solve discover the values (these are unknown values)

D10 & E10 & F10 would be of total 185
At the same time I need to sum (D10 * 5% ,E10 * 10% , F10 * 25%) to get the total 21.6

So I have two goal seeks (yellow cells)

I can deal with just one goal seek not two

Sub Goal_Seek_Tax()
    With Worksheets("Sheet1")
        .Range("G10").GoalSeek Goal:=.Range("C10").Value, ChangingCell:=.Range("H10")
    End With
End Sub

Thanks advanced for help