Issue copying visible cells after auto filter

Hi guys. I have really been struggling to figure out the issue here. The copy/paste works for the first part but not the second. Here's the code and I will explain the issue afterward:

Please Login or Register  to view this content.

NOTE: sh2 and sh3 are worksheets. strE1 and strP1 are filter criteria entered earlier with an inputbox.

The issue is that the SECOND copy/paste does not work. It does filter so only the phone scores are showing but cannot seem to get the visible cells to copy/paste. Instead, the FIRST copied cells for email are just copied again to the second range. Please help.

OK thank you for the idea! The weird fix, which ended up working is just inserting the copy code twice for the phone scores so that it looks like this:

Please Login or Register  to view this content.

Is this unconventional fix related to what you mentioned? Thank you!