Problema al importar datos de un libro a otro,

Hola, tengo el siguiente código que he copiado por internet y adaptado a mis necesidades.

Application.ScreenUpdating = FalseOn Error GoTo finDim dir As String MsgBox "Selecione Libro a Importar"dir = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*") Workbooks.Open Filename:=(dir)Range("e6:e29").SelectSelection.CopyActiveWorkbook.Close SaveChanges:=FalseSheets(2).SelectRange("a6").SelectActiveSheet.Pastefin:Hoja1.SelectApplication.CutCopyMode = FalseApplication.ScreenUpdating = True

El codigo funciona perfectamente,abre el libro indicado,copia el rango y lo pega en el otro libro,lo que copia es un rango con datos numericos.

El problema lo tengo a la hora de usar los números, parece que no los reconoce como números, la función Max y Min no funciona con ese rango de números, los formatos condicionales tampoco van, en cambio si borro algún numero de ese rango y lo ingreso manualmente si los reconoce y funcionan.

Me puedes decir cual es el problema.

Un saludo.