Solver with a for each loop

[Dstars21]

I have a worksheet that tries to find multiple optimal values based on a cell that changes each time in a range. I want to maximize the "profit" whi;e changing the blue cells. ( spreadsheet and corresponding formulas shown below.) does anyone know how i could loop solver to figure out each of the blue cells? Code I have so far is:

Sub Loopsolver()


    wsReport.Activate
    
    Dim Cell As Range
    
    For Each Cell In wsReport.Range("A4:a19")
    
    Solversolve userfinish:=True
    
    Next Cell
    
   End Sub