✔ VBA Excel Specialist®: VBA Excel - Como selecionar um range de tamanho variável para cópia.

Ocorre incontáveis vezes, a necessidade de copiarmos um determinado Range (Sendo este em alguma ocasiões, o resultado da atualização de uma Pivot Table (Tabela Dinâmica)) para outro local, como fazê-lo?

   ' Marcar e copia o range de Dados atualizado.

   Range ("B6:E" & LastLine()).Select ' Seleciona a área com dados.

   Selection.Copy   ' Copia a área com dados.

   Range ("G6").Select ' Seleciona o local para onde os dados serão copiados.

   ' Cola os dados selecionados.

   Selection.PasteSpecial _
   Paste:=xlPasteValues, _

   Operation:=xlNone, _
   SkipBlanks:=False, _

   Transpose:=False

Para determinarmos qual a última linha com dados, usamos aqui uma antiga e familiar funcionalidade deste Blog. Replico-a abaixo:

Function LastLine() As Variant

   ' Demonstra a última linha com conteúdo.

   Let LastLine = Worksheets ("[NOME DA TAB]").Cells(Worksheets("[NOME DA TAB]").Rows.Count, 5).End(xlUp).Row - 1


End Function