Dante Amor respondió:
Después de esta línea Selection. Copy Tienes esta línea ActiveSheet.Range("$B$5:$J$95").AutoFilter Field:=2 Lo que haces es quitar el filtro y te limpia la memoria, es decir, ya no tienes nada en "copy", cuando intentas pegar ya no puedes porque ya...
Error en Userform "Error en el método Paste de la clase Worksheet"