Need Macro to repeat Solver for several scenarios

Hello there-

As the title explains, I am trying to come up with a macro that will run solver for me multple times across several columns. As you can see in the attachment, I am running solver for 99 different portfolio possibilities. I have solved for Column B, C and D by running solver repeatedly by hand but would like to make this process automated since I'll need to do this 100+ times for just this spreadsheet (many more!). Everything in here is fake so if some formulae doesn't seem all that logical, it's ok - just a test sheet!

Starting in column C, going to CW, I am running solver as such:

Set Objective: $D$23
By Changing Variable Cells: $D$17:$D$19
Subject to the Contraints:
$D$17:$D$19 >=0
$D$20 = 1
$D$22 = $D$21

Can anyone help with the VBA to make solver re-run itself from columns C all the way to CW - effectively changing the portfolio weights in rows 17-79 for each column? Unfortunately I'm new to the VBA arena. Much appreciated!

CharlotteFI