Endless loop?

Hi,

Can anyone help me identify why I'm getting the following errors? "method clearcontents of object range failed" and sometimes "method apply of object sort failed"

The first part of the code (prior to sorting) works fine by itself and when I added the sorting aspect it actually worked at first--I had the workbook split into different windows. It seems I'm encountering an endless loop but I'm a vba noob and not sure how to fix this. I pasted an image below so you can visualize what's going on. Thanks!

Please Login or Register  to view this content.

2f77918de675bb96dc41f025d0ec6550.png

Update:
I added:
Application.EnableEvents = False
Application.EnableEvents = True
Application.ScreenUpdating = False
And it seems to be working. It's a little clunky but acceptable, maybe there's a way to optimize.

Please Login or Register  to view this content.