Replacing cells with a vlookup that are > than 9999 or 0

Hello,

I need a macro that will replace cells that either equal zero, or are greater than 9999 with a vlookup. At the moment my main problem is getting the vlookup to point to the correct first parameter. It needs to either run until there is no data or a range from I3:J12000. So my two rows of data are in I and J. If the vlookup is in column I, the vlookup needs to use the cell 5 columns to the left as it's lookup value (column D). If the vlookup is in column J, it will be 6 columns to the left, also column D.

Thank you for your time!

Bump... thanks!