GURUS: Can't break out a certain piece of a string and put in another column (complicated)

Hi all,

I am delaying with a report that gets generated through an MIS system on a monthly basis, in this report there is s afield called “Milestone Name” (Column AM) and sometimes embedded in this name is a MIS project number, but not always. In the Sample Workbook and I changed the text font to blue where the MIS project name is for the first few cases, so it’s easy to identify. The MIS project number will always follow a certain naming convention. If it’s there will always start with the number 3 or 4, followed by three other numbers, followed by a hyphen and another two numbers… so 3XXX-XX or 4XXX-XX. I don’t know if this is possible or not, but for the fields that do contain this MIS #, is there a way to get VBA to search it and extract it placing it in the next column. The workbook contains +10,000 rows so it would save me a lot of time if I had a macro doing this for me every month.

As requested here is the Sample workbook I am dealing with Sample.xlsx

Problem:
Sometimes like in row 318 in the picture, the date contains a similar format (2015-08), naturally I would of used the find function to find ####-##, but the problem is how do I do this if the date looks similar, is there a way to get the code to reject anything starting with a 2015 and only copy numbers like 3XXX-XX or 4XXX-XX

I need to firstly know if this is possible in VBA, if you don’t know how to write a code for it its okay but please give me your input if it’s possible or not. If impossible I can stop trying things. Any feedback is much appreciated, and if you’re a guru and think you can come up with something or set me on the right path, then hats off to you, you are a legend!

Code is working. Thank you you rock