Goal Seek

[KG]

I am trying to avoid using GoalSeek function in my programme and
replace it with my own code that uses variables instead of ranges (as
GoalSeek does). Could you please give me a hint how to do it better?
Thx