Tenho uma pequena experiência com o VBA e agradeço qualquer ajuda com esse problema. Em um sentido básico, preciso converter 2 colunas de dados na planilha 1 em linhas de dados na planilha 2.

Atualmente parece com isso no Excel:

E eu preciso que seja assim:

Eu já escrevi o código para transferir os cabeçalhos para a folha 2 e funciona bem. Estou apenas tendo problemas com a transferência dos valores reais no formato correto. Neste momento, o corpo do meu código é

ws.Range("B3").Copy
ws2.Range("C2").PasteSpecial xlPasteValues

ws.Range("B4").Copy
ws2.Range("D2").PasteSpecial xlPasteValues

ws.Range("B5").Copy
ws2.Range("E2").PasteSpecial xlPasteValues

ws.Range("B6").Copy
ws2.Range("F2").PasteSpecial xlPasteValues

continuou sem parar. No entanto, isso realmente não funcionará, já que o documento real em que estou trabalhando tem dezenas de milhares de pontos de dados. Eu sei que há uma maneira de automatizar este processo, mas tudo que eu tentei não fez nada ou deu um erro 1004.

Qualquer ajuda com isso seria muito apreciado!!

Edit: Existem centenas de pequenas seções de dados, cada uma com 18 linhas de comprimento (1 linha para o quadro #, 1 linha para o tempo e 1 linha para cada um dos 16 canais). Eu estou tentando colocá-lo em um loop com um tamanho de passo de 18. Isso é possível? Eu estou bem com loops, mas eu nunca fiz um loop com copiar e colar valores de células