VBA: Using Range.GoalSeek to automate multiple goal seeks in a single worksheet

Hi everyone! New here, and also a newbie to VBA on excel.
I'm looking to automate some goal seeks for my workbook
As the data I'm dealing with is sensitive, I have created an example to illustrative my problem:

Screenshot_6.png

I'm looking for a VBA that makes it possible for me to enter my goal value for row 7 AND row 14 on row 8 AND row 15 (highlighted yellow) respectively(e.g: if I enter 0 on D8, D7 will turn to 0 by changing D4).

The following code allows me to automate just one cell but I have no clue on how to expand it to accommodate all the other cells:

Please Login or Register  to view this content.

I'm not sure if this is even possible but any help will be appreciated!

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. As you are new here, I have done it for you this time.)