Este fórum está sendo desativado

[refernande]

Boa Noite
Tenho uma planilha que preciso fazer um loop para selecionar ultima coluna e colar valores na penúltima.
Como e Tabela não estou conseguindo fazer para reconhecer a tabela da planilha ativa.
alguém poderia me ajudar? Segue tabela como exemplo

[mucascosta]

Veja se ajuda...

Código: Selecionar todos

Sub SelCop()
    With ActiveSheet
        Range("J5:J15").Select
        Selection.Copy
        Range("I5").Select
        ActiveSheet.Paste
        Range("I5").Select
    End With
    MsgBox "FIM"
End Sub

[refernande]

Vou verificar, obrigado pelo apoio.

[osvaldomp]

Experimente o código abaixo. Sem Loop e sem Seleção, pode ser?
Funciona em qualquer tamanho de Tabela e independe da posição da Tabela na planilha.
Considerei que haverá somente uma Tabela na planilha ativa.

Código: Selecionar todos

Sub ReplicaDados()
 Dim k As Long, m As Long
  With ActiveSheet.ListObjects(1)
   k = .DataBodyRange.Rows.Count
   m = .DataBodyRange.Columns.Count
    .Range.Cells(2, m).Resize(k).Copy .Range.Cells(2, m - 1)
  End With
End Sub