I got “Type Mismatch” error in multiple condition scenario ( case function is used)

Question

I am trying to do a vba code for multiple conditions and selection scenario. Column AR is the column I would like to show the result of the selection. My selection logic is: