Receiving 400 error

I'm receiving a "400" error when trying to run one of my macros.

So I decided to step through my code and am getting the below error:

Run-time error '1004': Application-defined or object-defined error

The error is happening right after this section of code

Please Login or Register  to view this content.

Here is the whole VBA.

Please Login or Register  to view this content.