STUCK: Attempting VBA code to provide movement & time to dates to manufacturing process

Hi all,

As above, I am attempting to progress the time and date of a cell to another time and date. I'm relatively new to coding and relying on AI to help patch the holes, but I have come to a stopping point.

Where I2 is the static date, J2 is the result, and K2 is the provided value of time to progress by. The code is actually moving the time on, but getting the code to follow the shift pattern is proving troublesome.

I was hoping somebody would be able to help tell me what I am doing wrong, adjust the code accordingly or simply let me know if I'm, proverbially, urinating into the wind

I've added my test sheet to the thread with the shift pattern included in the separate tab. Ultimately, I need the code to apply to all dates in value in I:I, J:J, and K:K correspondingly but I have just been trying to apply the code to the 2nd row to see if it would function correctly.

Any help you can provide to a newbie would be much appreciated.

test data.xlsm

Hi J91,

I fixed a few inconsistencies in your code.
It works partially.
Too many more conditions need to be added...

A possible solution can be found in "Module2" and the "SETUP" sheet.
The procedure is started by clicking on the cell ">> Onto Line (Base) Act >>".
Comments can be turned off in the "SETUP!E2" sheet.

ms