Copiar celda a otra hoja según el valor de la celda

Buenas noches:

En la libro que adjunto tengo una hoja con el nombre DATOS y otras hojas con nombres de la columna U, trabajo con un código (el cual esta en mi libro) y lo que hace este código es filtrar y según el valor de la columna R y copiar a la hoja que tiene el mismo nombre de la columna R, pero este código copia a todas las hojas sin importar si tiene datos para dicha hoja o no.

Por favor solo quiero que copie a la hoja donde si le corresponde copiar los datos visibles que se tiene cuando se filtra según el valor de la columna R.

Saludos cordiales

Jesús

CopiarKardexclte.rar