Guru do Excel e Power BI

Prezados, bom dia!

Estou com um problema em uma macro que organiza alguns de outra forma em outra aba da planilha, porém ele está pulando algumas datas... não estou conseguindo alterar o código de maneira funcional.

Alguém pra dar uma força?

Desde já, muito obrigado!

Na parte do código que está "Col = Col + 2" ponha: "Col = Col + 1"... E anteriormente defina a Col = 3 ao invés de 1.

Funcionou!
Porém, não copiou a data 01/01/19

também precisei alterar essa linha

Orig.Range(Orig.Cells(3, Col), Orig.Cells(102, Col + 1)).Copy (Cells(Lin, "D"))
Para
Orig.Range(Orig.Cells(3, Col), Orig.Cells(102, Col)).Copy (Cells(Lin, "D"))

(Removi o +1), pois estava copiando dados também para coluna E

Alterei o Col = 3 para Col = 2, e ai pegou a data 01/01/19, apararentemente ficou tudo ok