Quando insiro a linha, as células não são deslocadas para baixo.

[Takeshi Sato]

Eu criei uma macro onde ela copia células de uma planilha e cola na segunda como valores. Para não sobrepor as informações antigas, fui orientado a adicionar uma linha antes de colar. O problema é que quando executo a macro, as informações (células) não deslocam-se para baixo. Ao invés disso, apenas cola em cima e apaga o que havia.

Acredito que era pra estar funcionando devido ao "shift:=xlDown"...

 

Aqui está o código:

 

Sub CADASTRAR()

Dim LC As Worksheet
Dim CD As Worksheet

Set CD = Worksheets("CADASTRO")
Set LC = Worksheets("LISTA DE CLIENTES")

' INSERE AS INFORMAÇÕES DO CLIENTE NA LISTA DE CLIENTES.
 

    LC.Select
    LC.Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
    Range("C14").Select
    

        CD.Range("C7:P8").Copy
            LC.Range("B4").PasteSpecial Paste:=xlPasteValues
        
            CD.Range("L19:P20").Copy
            LC.Range("C4").PasteSpecial Paste:=xlPasteValues
                
                        CD.Range("C19:E20").Copy
                        LC.Range("D4").PasteSpecial Paste:=xlPasteValues
        
                                CD.Range("G19:J20").Copy
                                LC.Range("E4").PasteSpecial Paste:=xlPasteValues
        
                                        CD.Range("C11:M12").Copy
                                        LC.Range("F4").PasteSpecial Paste:=xlPasteValues
        
                                                CD.Range("O11:P12").Copy
                                                LC.Range("G4").PasteSpecial Paste:=xlPasteValues
                                                    
                                                    
        
    CD.Range("C15:E16").Copy
    LC.Range("H4").PasteSpecial Paste:=xlPasteValues
        
            CD.Range("G15:J16").Copy
            LC.Range("I4").PasteSpecial Paste:=xlPasteValues
        
                    CD.Range("L15:M16").Copy
                    LC.Range("J4").PasteSpecial Paste:=xlPasteValues
        
                                CD.Range("O15:P16").Copy
                                LC.Range("K4").PasteSpecial Paste:=xlPasteValues
                                    
                                    
        
    CD.Range("C7:P8").ClearContents
        CD.Range("L19:P20").ClearContents
            CD.Range("C19:E20").ClearContents
                CD.Range("G19:J20").ClearContents
                    CD.Range("C11:M12").ClearContents
    CD.Range("O11:P12").ClearContents
        CD.Range("C15:E16").ClearContents
            CD.Range("G15:J16").ClearContents
                CD.Range("L15:m16").ClearContents
                    CD.Range("O15:P16").ClearContents
        
        
    CD.Select
    CD.Range("C7:P8").Select
    
    
End Sub

 

Planilha onde colo as informações:

 

Primeira Execução:

Segunda Execução:

Aparentemente ele está sobrepondo as informações anteriores e adicionando linhas abaixo... Não entendo o porquê. :(

 

[Alyson Ronnan Martins]

Boa tarde.

Tem adcionar o seguinte comando para descer as informações uma linha, antes de inserir os dados:

LC.Rows("4:4").EntireRow.Insert

 

Editado Março 23, 2020 por Alyson Ronnan Martins
Edição do código

[Takeshi Sato]

Então, eu consegui resolver a situação quando removi a mesclagem das linhas na primeira planilha onde era inserido as informações.

Mas, ainda aproveitando, teria algum código específico para se trabalhar com essas células mescladas? 

Pois através do colar especial, somente valores, ainda sim é como se tivesse pego a formatação também. Ele colava considerando as duas linhas da planilha da lista de clientes e colava na segunda ou primeira, adicionando sempre uma linha abaixo. Desta forma, acabava sempre sobrepondo as informações existentes.