Excel ERRO: Método PasteSpecial da classe Range falhou

[Aline Steffanato]

Bom dia! Fiz uma macro para copiar dados de uma Aba e colar em formato de linha em outra aba, sempre inserindo abaixo da ultima linha da tabela. O local de onde copio possui muitas celulas mescladas por isso utilizo o Colar Valores. porém aparece a mensagem ""O método PasteSpecial da classe Range falhou"" sempre que executo a parte em negrito abaixo

 

MacroLINHABAIXO()

    Sheets("Cadastro").Select
    Range("K11:T11").Select
    Selection.Copy
    ActiveSheet.Next.Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

Sou iniciante e estou há dias tentando resolver.... Agradeço desde já!

[Midori]

@Aline Steffanato Não precisa adicionar a linha em listobject. Remova esse comando que a tabela vai se ajustar aos novos dados acrescentados na última linha.

[Aline Steffanato]

@Midori

Eu exclui toda esta linha 

Selection.ListObject.ListRows.Add AlwaysInsert:=True

e realmente funcionou, obrigada! Porém ela era referente à "Inserir linha de tabela abaixo" e agora as informações adicionadas não estão ficando com a formatação da tabela, estou tentando encontrar uma maneira de inserir na macro sem que ela dê erro.

[Midori]

@Aline Steffanato Sua tabela não aumentou o range com aos novos dados da última linha adicionada? Aqui aumenta automaticamente inclusive com a formatação. Mas já que não deu certo aí, editei o código para colar os dados. Estava dando erro porque a macro perdia a referência da cópia quando a nova linha era adicionada,

 

Sub MacroLINHABAIXO()
    Dim Cadastro As Worksheet
    
    Set Cadastro = ThisWorkbook.Sheets("Cadastro")
    
    Cadastro.Next.Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    ActiveCell.Offset(1, 0).Select
    Cadastro.[K11:T11].Copy
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[Aline Steffanato]

@Midori Agora deu certo!! Estou aprendendo com alguns cursos online e aplicando no trabalho mas acabo me perdendo kk 

Muito obrigada pela paciência, tenha um bom fim de semana !!