Haciendo lo siguiente he conseguido conseguido que me lo acorte a esto "2014-05-07 15:42:05"
Código VBA:
Ver originalfecha = Left(Sheets("Sheet1").Cells(contadorFilas, 1).Value, 19)
Sheets("Sheet1").Cells(contadorFilas, 1).Value = fecha
Pero, a la hora de escribirlo en la excel me lo escribe así "07/05/2014 15:42", si me coloco encima de la columna el valor que aparece es el siguiente "07/05/2014 15:42:05" y si una vez escrito cojo y le dos a formatcells y elijo lo siguiente "aaaa-mm-dd hh:mm:ss" me lo escribe correctamente. Lo que yo quiero es que esto que hago yo a mano de formatCells me lo haga la macro y me lo escriba correctamente.
