Eu tenho uma linha de dados (célula A3 e abaixo) que contém um registro de data e hora Unix emyyyymmdd hhmmss formato que estou tentando converter paramm/dd/yy hh:mm formatoautomaticamente.

Até agora, o código que eu tenho funciona quando tenho os dados iniciados na célula A1, mas preciso que A1 permaneça em branco; portanto, os dados começam em A2.Aqui é uma captura de tela de exemplo da coluna A:

Sub auto_open()
'
' auto_open Macro
'

'
ChDir "C:\"
Workbooks.Open      Filename:="C:\Users\username\Desktop\file1.csv"
Intersect(Sheets("file1").Range("A:EW"),     Sheets("file1").UsedRange).Copy     ThisWorkbook.Sheets("Golden").Range("A2")
Windows("file1.csv").Activate
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges = False

Dim x As Integer
Dim y As String
Dim z As String
Dim w As String

NumRows = Range("A3").End(xlDown).Row

Windows(ThisWorkbook.Name).Activate
For x = 2 To NumRows
     z = Cells(x, 1).Value
     y = Mid(z, 5, 2) & "/" & Mid(z, 7, 2) & "/" & Left(z, 4)
     w = Mid(z, 10, 2) & ":" & Mid(z, 12, 2) & ":" & Mid(z, 14, 2)
     y = y + TimeValue(w)
     Cells(x, 1).Value = y
Next x

Range("A3").Select

End Sub

Erros se eu definir o intervalo para A2 ou A3 e para baixo.

Alguém tem recomendações?

Destaques da depuraçãoy = Mid(z, 5, 2) & "/" & Mid(z, 7, 2) & "/" & Left(z, 4) mas não tenho certeza qual é o problema.

Formatar células (personalizadas>mm/dd/yyyy hh:mm:ss) também não funciona no meu caso, infelizmente.