Bom dia!!

Seria isso?

Sub UnionExample()
'http://www.cpearson.com/excel/BetterUnion.aspx
    Dim Rng1, Rng2, RngTtl As Range
     
    Set Rng1 = Range("A1:A5")
    Set Rng2 = Range("A10:A15")
    Set RngTtl = Union(Rng1, Rng2)
    
    RngTtl.Copy
    Range("G1").PasteSpecial xlPasteValues
End Sub

Att

Boa tarde, tudo bem?

obrigado pelo contato.
Já tinha feito esse teste e não deu certo.
Ele até faz a seleção, mas não copia para o powerpoint.

Pensei o seguinte.
Quando eu faço um filtro na tabela dinâmica, ele gera uma saída padrão?

Tem como eu selecionar só o range de saída da tabela dinâmica de acordo com o tamanho de linhas do filtro?

Desde já, muito obrigado

Boa tarde!!

Eu lhe sugiro postar seu arquivo modelo com o antes e depois do pretendido para que possamos te ajuda!

Att