problem with error handling

Sub Paste_Value_On_Selected_Cells()
Hi, i have a code as follows:

Please Login or Register  to view this content.

First part of the code will allow users to, for eg, select the filtered cells (A2, A3, A6, A24, A35) and paste the values onto it. This works well.
Secondly, when errors occur, a popup of my pre-entered text should appear. This part fails.
For eg, when I copied values from 6 consecutive cells in a column, and paste it on the selected, visible and filtered, 5 cells, the following error appears:
Run-time error ‘1004’:
PasteSpecial method of Range class failed
If the code worked correctly, it should have replaced this message with a popup message that I had pre-entered. Anyone can assist on this?

Yes, I tried but it still fails..

Please Login or Register  to view this content.

Thanks, im outside now and will try it out once I'm home.