Seu comentário indica que o nome do arquivo inclui a data desejada. Você está acessando o nome do arquivo na variável myFile. Por que não dividir isso para obter a data e inseri-la em algum lugar desejado? Você poderia torná-lo a primeira ou última célula na tabela de destino, por exemplo.
Exemplo adicionado:
Tente adicionar essa nova linha ao seu script.
Next c
'new
xl.activeworkbook.activesheet.Cells(xlRow, xlCol + 1) = myFile
xlRow = xlRow + 1