Boa noite!!

Eu não entendi, você repetir 99 vezes essa macro?

Poste um arquivo modelo (compactado), nele demonstre o que deseja (antes e depois)

Att

Ao inves de escolher o codigo a macro copia o codigo na planilha e imprime quero fazer com todos os codigo que tiverem na planilha do 1º codigo até o ultimo.
Se lançar mais algum codigo a macro possa imprimir

Bom dia!!

Veja se ajuda

Sub AleVBA_14442()
    Dim wsPrint As Worksheet
    
    Set wsPrint = Worksheets("Plan2")
    Worksheets("Cadastro").Activate
    [A2].Select
    
    For x = 1 To 19
        wsPrint.Range("D2").Value = ActiveCell
        MsgBox "valor copiado foi: " & wsPrint.Range("D2").Value 'Coloque aqui sua macro que imprime
        ActiveCell.Offset(1).Select
    Next
End Sub

Use

 Application.ScreenUpdating

Att

Na realidade o que estou tentando fazer é que em uma guia tenha os codigos que preciso e em outra o formulario que desejo.O que estou tentando realizar é quando eu clicar em atualizar automaticamente aparece o 1 codigo e imprime o formulario essa rotina seja executada até o ultimo codigo.
Obs: Copia o 1º codigo imprime o formulario e limpa a celula assim por diante, ou então fazer isso manualmente.

Boa noite!!

Sinto muito...

Vamos aguardar o pessoal que entendeu sua dúvida, postar uma resposta adequada.

Att

Enquanto isso vou tentando se obtiver resposta vou postar

E aí, obteve resposta ? Postou ?