Run-Time Error 13 'Type Mismatch'

Hi everyone, I am new to the forum and to excel VB.
Recently I used one macro from this forum, but I keep on getting the Run-Time Error 13 'Type Mismatch'
Below is the macro code I used. I got the error on the red line.

Please help me.

__________________________

Please Login or Register  to view this content.

___________________________