VBA para copiar de uma planilha Excel pra outra em outra pasta

Question

Galera boa noite!

Fiz um VBA para copiar a linha de uma planilha num lugar e salvar em outra e assim sucessivamente sem apagar os dados anteriores copiados, só que tá dando erro e não sei mais o que fazer alguém me ajude. Segue o VBA.

Sub CopiarDadosTrilhaEArquivar()

    Dim xScreenUpdating As Boolean

    Dim xPasteSht As Worksheet

    Dim xRg As Range

    Dim xTxt As String

    On Error Resume Next

    xTxt = ActiveWindow.RangeSelection.Address

    Set xRg = Application.Worksheets("Trilha").Range("A2:CE2")

    If xRg Is Nothing Then Exit Sub

    Workbooks.Open ("\Concessão Atacado e Varejo\CUSTOMIZAR\Tabela_ARQUIVO.xlsx")

    Set xPasteSht = Worksheets("ARQUIVO")

    xScreenUpdating = Application.ScreenUpdating

    Application.ScreenUpdating = False

    xRg.Copy

    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

    Application.CutCopyMode = False

    Application.ScreenUpdating = xScreenUpdating

End Sub

Answer 1

Olá , tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft.

Meu nome é Valéria sou orientadora independente e farei o possível para ajudar.

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI para tratar está questão.

https://social.msdn.microsoft.com/Forums/pt-BR/....

Para criar uma nova pergunta no fórum MSDN, acesse:

https://social.msdn.microsoft.com/Forums/pt-BR/....

Basta logar com a sua conta Microsoft.

Espero ter ajudado, até mais!