I want to perform goalseek function on VBA. Is there such a function that will sets a cell to zero by changing multiple cells in a single row?

I want to set cell D42 to zero by changing the cells in row 442 (columns H:GH).

I am new in VBA codes and would be very grateful if you can help with this issue