Multiple Goal Seek VBA Code

I have 200 rows that have different "Set cells","Desired Value" and "Changing Cell". For example, I would like to use Goal Seek that seeks each row with the changing variables. I pulled this code from a webiste and works to an extent. I pick the proper range for the variable, however only goal seeks the first row. I want to modify the code to goal seek the selected range and the CHANGING CELL must be >0. Thank you for help.

Please Login or Register  to view this content.

Moderator Edit:

Welcome to the forum.

Please notice that code tags have been added to your post. The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at the top of the page and read Rule #3.
Thanks.