Bom dia!!

Use o código.
Veja o anexo.

Sub AleVBA_26329()
'Fonte: https://www.rondebruin.nl/win/s3/win001.htm
'Autor: Ron de Bruin
    Dim SourceRange As Range, DestRange As Range
    Dim DestSheet As Worksheet, Lr As Long

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    'Aponta o intervalo da guia origem
    Set SourceRange = Sheets("AleVBA").Range("A2:AC2")
    'Verifica qual é ultima linha da guia destino
    Set DestSheet = Sheets("banco")
    Lr = LastRow(DestSheet)
    'Armazena dentro de uma variável os dados de um intervalo
    Set DestRange = DestSheet.Range("A" & Lr + 1)
    'Copia e cola especial
    SourceRange.Copy
    DestRange.PasteSpecial _
            Paste:=xlPasteValues, _
            operation:=xlPasteSpecialOperationNone, _
            skipblanks:=False, _
            Transpose:=False
    Application.CutCopyMode = False

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub

Att

Bom dia!

Segue minha contribuição!

Abç

poderia me dar uma luz de onde eu estava errando?

Bom dia!!

Eu não verifiquei sua rotina, apenas adaptei um caso que recentemente havia presenciado.

Att