Datos usando copiar y pegar no llegan al destino en su formato original (numérico)

Parece que tuvieras con diferente formatos las hojas origen y destino.

Intentá con la siguiente instrucción y si el problema persiste tendrás que enviarme las hojas involucradas en este proceso para ver sus 'particularidades'.

 LibroDatos. Sheets(1). Range("a2:e50"). Copy Destination:=ActiveSheet.Range("A" & filx)

donde 'filx' será la primer fila libre según la col A en la hoja activa:

filx = activesheet.range("A" & rows.count).end(xlup).row + 1

Si esto resuelve tu consulta no olvides valorarla, sino enviame aclaraciones o tus muestras a alguno de los correos que aparecen en mi sitio que dejo al pie.

Estimada Elsa, abusando de tu buena voluntad quisiera tu consejo sobre macro incluida en archivo adjuntos. La idea es muy sencilla pero por alguna razón los datos no llegan como debiera, es un copiar y pegar al final del archivo vida util.xlsm, funciona en parte, pero valores se cortan cuando encuentran un punto en información copiada. De antemano muchas gracias.

https://drive.google.com/open?id=0B3m0Zws3RirDTFJnRWx1NmJDV1E

Te dejo la macro ajustada y explicada:

Sub trae_Altas()
'x Elsamatilde
Dim ultimaFilaHoja As Long
'primer fila para el pegado
ultimaFilaHoja = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1
'guardo el nombre del libro activo para el pegado
libro1 = ActiveWorkbook.Name
'se abre el libro de Altas... pasa a ser el libro activo
Workbooks.Open "C:\Users\elsam\Downloads\CONSULTAS PENDIENTES\CadizPara_excel-20170604T003222Z-001\Para_excel\Altas.xlsx"
'se copia un rango pegándolo en fila libre
    Range("A2:E8").Copy Destination:=Workbooks(libro1).Sheets("Hoja1").Range("A" & ultimaFilaHoja)
'se cierra el libro Altas sin guardar cambios
ActiveWorkbook.Close False
End Sub