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.

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.

I just saw your last post, so what I just said probably does not make sense.
When the code stops, click debug then hover your mouse on the line highlighted in yellow.

It should break at :

                Dic(ar(i, 1)).Add ar(i, 7), ar(i, 10)

if you place the cursor over ar(i, 1), ar(i, 7) and ar9(i, 10), what values do you see?