Este fórum está sendo desativado

[Angra]

Boa tarde
Preciso copiar valores de um intervalo e colar em uma linha e depois na linha subsequente e...

[osvaldomp]

Código: Selecionar todos

Sub ReplicaDdos()
 If [E21] = "" Then [E21].Resize(, 20).Value = [AL5:BE5].Value Else: Cells(Rows.Count, 5).End(3)(2).Resize(, 20).Value = [AL5:BE5].Value
End Sub

[JCabral]

Está TOP, dá para explicar a parte "Cells(Rows.Count, 5).End(3)(2).Resize(, 20).Value = [AL5:BE5].Value"

Obrigado