Boa tarde, Romulo!

Anexe a planilha que fica mis fácil entender.

Boa tarde!!
Olá Romulo...sua dúvida necessita de recursos de VBA ou Macros?
Poste seu arquivo modelo COMPACTADO!!! e...use nossa base de dados

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att

Boa tarde,

Preciso de uma macro.. desculpe o descuido..

segue em anexo arquivo de exemplo..

Obrigado.

RomuloRDM

Experimente:

Sub Replicar()
Dim lastRow As Long, X As Long, Z As Long, Y As Long, T As Long
    lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    Y = Cells(Cells.Rows.Count, "C").End(xlUp).Row

For X = 2 To lastRow
    
     T = Cells(Cells.Rows.Count, "E").End(xlUp).Row + 1
   For Z = 2 To Y
        Range("E" & T) = Range("A" & X).Value
        Range("F" & T) = Range("C" & Z).Value
    T = T + 1
    Next
Next
End Sub