Replace Index Match with VBA - Multiple Criteria - Thousands of rows and columns

Ok, GC, I played with it more and actually found the right window. The ar has no plus sign beside it. the other variables can be expanded, but not ar.
Module1 has a plus
Dic has a plus
shNames has a plus
ws has a plus

Dict, ar, I,n,j,sName,rg and c do not have a plus.

As I said all data should start on A1, this could be changed. Currently I only placed data in the JAN tab until we get it working.

Edit:
I added a line to Feb as it seems that was where it was getting the error. Now I am back to the Runtime 457 error, that was due to a duplicate date, I changed it and MAR was the culprit tab.
I added a line to each month and now it works!

Does this mean I will need to make a fictitious person to start each month or it will not work? Normally those tabs would stay empty until the start of the month.