VBA Code running very slow to seperate 250 rows into 5 categories

Skywriter that was the kick in the teeth I needed. The row keys I am using (MNoticeMain is one of them) change location every time the loop runs and a row gets added. I had placed the keys outside the loop which was causing them to find their position once and the loop to keep over writing on itself. I moved them into the loop so that they get rechecked each time the loop runs and it works great now, Thank you.