Boa tarde!!

sua explicação está muito confusa!

Tenho uma tabela de vendas na Plan1, onde tenho que alterar copiando as linhas C1: H1, e colando e transpondo na linha C2:D2 da Plan2.

Você quis dizer
C1:H1 da PLan1, para C2:H2 da Plan2???

Os dados de A2;B2, apenas copiar para A2:B7 da Plan2.

Os dados de A2;B2, apenas copiar para A2:B2 da Plan2??
Vai ser trago qualquer venda, qualquer linha, não tem critério, oque???
Explique melhor!!

Att

É isso mesmo, os dados da C1:H1 copia e cola na plan2, coluna C, na primeira linha que estiver vazia. E os dados da A1:B1 da plan1 cola na plan2 sempre em bloco de seis linhas.
O que esqueci de dizer é depois de feito a cópia a linha 1 da plan1 deve ser deletada (excluída), para que a nova cópia seja de novos dados.

Boa noite,

Veja se atende:

Sub Copiar()
    Sheets("Plan1").[A1:H1].Copy _
    Sheets("Plan2").Range("A" & Sheets("Plan2").Rows.Count).End(xlUp).Offset(1, 0)
    Sheets("Plan1").[A1:H1].ClearContents
End Sub

A macro copia, apenas, uma linha.
Você disse que tem que ser em blocos de 6 linhas, porém colocou o endereço de apenas 1 linha.

Abraço

Boa noite, segue em anexo,

pelo que entendi desenvolvi o aplicativo, favor verificar se corresponde a suas necessidades, e realizar alguns testes de dados,
qualquer coisa retorna a menssagem para que eu possa fazer adapotações.

att MarkoSoftware

MarkoSoftware Boa Tarde!

Perfeito! Era isso mesmo, muito obrigado! Feliz e Prospero ano novo!

Doni

Codigo muito bom

simples e eficas