How do I get this macro written for excel 2010 to run in excel 2016 or 2013?

Question

Hello Friends I am using the following VBA and get the 438 error object doesn\'t support this property or method? Very NOOB programmer, so not really sure what I need to do to f