Goalseek selected cell

Is it possible to make a macro that will Set Goal Seek on the current cell, with the Changing Cell as the cell directly to the right, and Goal on the cell directly to the left of the selected cell?

Thanks

EDIT:
Attached template