Using Macro to automate goal seek in one column range

Hi all,

Can someone kindly help me with issue that I have recently when dealing with goal seek ?
Previously I've managed to utilize macro to automate calculation that involve goal seek, but it's only for one single cell output.
But currently, I have an issue where I require goal seek calculation for several cell in one specific column range automatically. (detail can be found in the attachment file).

In the attached spreadsheet, I want cells in range L4:L23 give result at the time I input value in column J4:J23.
currently I've have to input column L manually after input "Pit Volume" value into "Pit Calculator" section and it's very tedious things to do.

Feel free to modify attached spreadsheet.


regards,

Hendra