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.