Boa tarde!!

Sinceramente eu não estou entendendo.

wsBD_Ped.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)

Essa linha (acima),vai pegar os dados e por em baixo do ultimo dado de seu BD.

Já a linha (abaixo), vai por os dados sempre no topo.

wsBD_Ped.Rows("2:2").Insert Shift:=xlUp

Att

Então tentei trocar, deixar as duas linhas. E o que cria é a linha acima do cabeçalho, e os itens copiados vai pra baixo da ultima linha escrita.
fiz duas anotações nas abas BD pedido e Plan2
Segue a planilha se puder dar uma olhada

Agradeço desde já

Bom dia!!

Altere a linha para

wsBD_Ped.Rows("6:6").Insert Shift:=xlUp

Att

Funcionou não. Ele copia as info na linha de baixo ainda.
mais deixa assim mesmo. Não consegui..
Muito Obrigado pela atenção.

Bom dia!!

Possa ser que eu não esteja entendendo, vamos aguardar os outros membros responder.

Mas o que eu entendi, foi:
Após a linha 5 inserir os dados sempre no topo (após o cabeçalho que está na linha 5).

Att

Sim. dessa forma que está dizendo mesmo.
Mais na hora que copiar ele copia sempre abaixo do outro dado.
Agradeço pelo atenção

Aparentemente ta funfando. Porém sobrou um problema.. kkkk está lançando pro lado em todas as colunas. tipo várias copias.
Mais em questão altura está perfeito
Pode ser algum código que mexi?

Obrigado a todos, Mas a planilha está copiando para as colunas,
Ela copia vários pedidos na horizontal manjam?
Desde já agradeço