roquejr83,

Boa noite!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Algumas solicitações especiais que pedimos, por gentileza, ficar atento:
1 - Não inserir no titulo de suas postagens expressões como Help, Ajuda, etc. O título deve ser um resumo da sua necessidade para que outras pessoas que tenham a mesma dúvida possam efetuar a pesquisa e achar como foi resolvido.
2 - Não insira em suas mensagens frases todas escritas em letras maiúsculas. Isso, na Internet, é compreendido como gritos e muitos usuários sequer respondem somente por esse fato!
3 - Insira sempre um arquivo exemplo compactado com .ZIP aqui mesmo no fórum. Existe, logo abaixo da caixa de mensagens, uma aba chamada "Adicionar um anexo" para essa finalidade. O arquivo exemplo deve ser pequeno, com apenas 5 linhas no máximo, compactado com .ZIP e ter o mesmo layout (nome do arquivo, nome das abas/guias/folhas, mesma linha/coluna onde os dados se iniciam) do arquivo original.
4 - Não utilize a ferramenta CITAR para inserir o inteiro teor das mensagens que lhe são encaminhadas como resposta. Citações, se estritamente necessárias ao entendimento da mensagem que você quer enviar, devem ser apenas de pequenos trechos das mensagens.
5 - Se for postar códigos VBA aqui no fórum, utilize a ferramenta CODE localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita). As linhas de código devem ficar entre as palavras "CODE e /CODE".
6 - Agradeça sempre às pessoas que lhe responderam e às mensagens que atenderam a necessidade de sua demanda. Esse agradecimento deve ser clicando na mãozinha que fica localizada ao lado da ferramenta CITAR. Lembre-se: o fórum é gratuito e esse é o único incentivo para as pessoas que prestam ajuda. Você pode agradecer a quantos usuários quiser.
7 - O título não deve ser escrito todo em letras maiúsculas.

Alguém poderia me dar uma luz?

Olá pessoal, estou tentando fazer aqui, fiz a parte de dar baixa no estoque pelo próprio excel, agora estou com dificuldades na cópia dos valores de custo referente a compra até o estoque acabar, quero que vai pegando o valor de custo até acabar, daí pega o próximo valor de custo da próxima compra com estoque, assim vou poder ver o lucro certo, entendeu.
Abaixo está ó código que eu estou fazendo, mas tenho pouquíssimo conhecimento. Se puderem me ajudar, obrigado!

Private Sub ControledeEstoque()

Movimento.Activate

Movimento.Select

Movimento.Range("B3").Select
Do
If ActiveCell.Value <> Movimento.Range("J8") Then

ActiveCell.Offset(1, 0).Select

End If
If ActiveCell.Value = Movimento.Range("J8") Then
ActiveCell.Offset(0, 2).Select

CUSTO = ActiveCell.Value
End If
If ActiveCell.Value = "" Then

MsgBox "Não tem mais em estoque!"

Exit Sub

End If
Loop
Exit Sub
End Sub