Boa noite!!1

Baixei seu arquivo mas, ainda preciso de mais detalhes.

Att

oq você precisa?

Boa tarde!!

Eu não entendi o que você, se poder dê mais detalhes.

simule o resultado.

Boa noite!

pelo que descreveu montei o código abaixo:

Sub Pedidos()

Dim I, J As Integer
Dim Qtd As Long
I = 2 'Define a linha onde se encontra o 1º pedido

Do While Range("A" & I) <> "" 'Repete até que não exista nº de pedido
Qtd = Range("C" & I) 'Define a Quantidade de Itens do pedido
For J = 1 To Qtd 'Repete n vezes de acordo com a quantidade de itens do pedido

Next J
I = I + 1
Loop

End Sub

Boa noite.

Baixei o arquivo,
mais infelismente não entendi onde voce quer chegar.

abraço.

Bom dia!!

Irugal, não abandone seu tópico assim que poder dê retorno

Alexandrevba, desculpa eu não tive tempo de entrar mas eu não tinha esquecido do topico. Eu consegui fazer a repetição do caso mas até hoje não entendi muito bem como repetir uma macro varias vezes.

Grato pela ajuda

Bom dia!!!

Este código postado pelo ELIOJ, está comentado.

Veja.

Sub Pedidos()

Dim I, J As Integer
Dim Qtd As Long
I = 2 'Define a linha onde se encontra o 1º pedido

Do While Range("A" & I) <> "" 'Repete até que não exista nº de pedido
Qtd = Range("C" & I) 'Define a Quantidade de Itens do pedido
For J = 1 To Qtd 'Repete n vezes de acordo com a quantidade de itens do pedido

Next J
I = I + 1
Loop

End Sub

Pessoal realmente muito obrigado, estou pegando o jeito agora. =DD

Boa tarde!!
Vou marcar seu tópico como resolvido, caso tenha algo mais para ser elucidado, fique a vontade para questionar.

At+++