Acho que matei a charada, foi só substituir no contador do turno 2: Cells(k + 1, 9).Value = Cells(l + 1, 2), por: Cells(k + 1, 9).Value = Cells(l + 1,...

[Caro brunoxro, boa noite! Obrigado pela sua rápida resposta, a planilha que vc enviou é quase como eu estava precisando, porém está gerando a escala ...

Valeu Saulo Robles! Captou perfeitamente o que eu queria. Pela atenção, obrigado.