Trying to find in this code whats causing error 13 Type mismatch

Good morning,
I got this code and tested using sample sheet and worked

But then i change the range And start to display error 13 Type mismatch.

I read the following link but i can't identify the correlation of possible causes vs my code


https://msdn.microsoft.com/en-us/vba...XM04lwSTgmg)()

I need to see what's causing this error

This is the range what i changed

Please Login or Register  to view this content.

Then i changed to S5:W and SW

And this

Please Login or Register  to view this content.

Changed to

Please Login or Register  to view this content.

Then above line is Highlited

Please Login or Register  to view this content.

Thanks in advance !!!!

Try changing the code to this and take a look at dic when you get the error.

Please Login or Register  to view this content.

Before writing values to the sheet, make sure that the dictionary is populated.
Try it like this...

Please Login or Register  to view this content.