Macro to show upcoming date

I'm possibly being a bit dense, but I can't seem to get it to work. I've tried adding the code after previous code and adding it as a different module but it doesn't seem to recognize P, then when seeking to use "IFERROR" statement I just get a "VALUE" error. I'm attaching copy of the document with code added after previous event look up code.

Thanks

Paul