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.

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ê. :(