todo es correcto ya que aparecen los datos en la hoja de destino y aparentemente correctos. 

el problema se presenta en ue al actualizar los datos los filtros de fecha desaparecen y solo de puede filtrar registro por registro, y al aher cualquier hoja dinámica el campo de la fecha no tiene mas filtro que fecha por fecha.

¿alguien puede saber como solucionarlo?

Transpone $B$5:$B$13 a continuación de los datos existentes en destino.

 ... que a ti, ni siquiera te detuviste a repasar el texto escrito.

1.- "... ue al actualizar los datos los filtros de fecha desaparecen..."

lo que quiero hacer es lo siguiente: una hoja en la que  introducen datos varios usuarios en diferentes lugares, entre ellos la fecha de introducción, que mediante la función descrita se copian a otra hoja llamada datos.xlsx situada en un servidor. 

los datos se copian correctamente, pero con una salvedad: al actualizar el Dashboard los filtros de fecha desaparecen y los datos de las tablas dinámicas aparecen como si fueran textos ya que desaparece la opción de filtrarlos por años, trimestres o meses. No es así en la hoja "Datos", donde se han copiado, en la que si aparecen los filtros adecuados a un campo fecha, pero en las tablas dinámicas no, y ese es el problema ya que me obliga a borrarlas y volverlas a hacer si quiero que el Dashboard funcione correctamente y este lo usan también otras personas que son únicamente usuarios finales.

No se si esta vez me he explicado bien

perdonad por haceros perder el tiempo

Joase Acilu

►«...introducen datos varios usuarios en diferentes lugares, entre ellos la fecha de introducción, que mediante la función descrita se copian a otra hoja...»

La única fecha que (veo que) se replica en la otra hoja es .Cells(NuevaFila, 2).Value = Date    'Día actual, y... ni DATE es texto, ni es la fecha que introducen los varios usuarios. Por tanto (supongo que) el problema está en destino, tal vez en el diseño de la tabla dinámica.