Erro Gravaçao de Macro

[Analista Santos]

Boa noite, prezados.

 

Sou novo no Fórum e mais novo ainda em programaçao em VBA.

 

Fiz a gravaçao de um macro para atualizaçao de um cadastro de clientes, porém ela funciona 1x e na segunda ela começa a apresentar erro. Abaixo segue Macro:

 

Sheets("CLIENTE").Select
    Range("B3").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Range("B4").Select
    Selection.Insert Shift:=xlDown (Linha onde o erro é apresentado)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CADASTRO_CLIENTE").Select
    Range("J4,G4:G7,D10:D12,D12,D13,D7,D6,D5,D4").Select
    Range("D4").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D4").Select
End Sub

> Erro apresentado:

Erro em tempo de execuçao

Erro de automaçao

O objeto chamado foi desconectados dos seus clientes.

 

Gostaria de ajuda para correçao do erro e entendimento do mesmo.

 

 

 

[CasaDoHardware]

Se eu entendi você copia um intervalo 

 

E insere uma linha para realizar a colagem 

 

É isso???

 

Inserir essa linha é necessario?

 

Nao pode ser colado a partir da ultima linha preenchida?

 

Explique o que você precisa fazer e se possivel disponibilize o seu arquivo com alguns dados (os confidenciais devem ser substituidos).

[NNNic]

https://support.office.com/pt-br/article/Erro-de-macro-59a00238-318f-4d3a-b4ba-32e2ea6f85bf

[NNNic]

https://support.office.com/pt-br/article/Erro-de-macro-59a00238-318f-4d3a-b4ba-32e2ea6f85bf