Como criar comando na macro para copiar e colar sem sobrepor o já existente

[deco.3x10]

boa noite amigos

 

gostaria de ajuda quanto a criação de uma macro para colar informações em um banco de dados sem sobrepor o já existente, estou tentando porém não consegui está sobrepondo as informações já existentes

 

segue abaixo o que preciso para completar por favor me ajudem!!!

 

 

Sub Copiar()
'
' Copiar Macro
'
'
    Range("H6:H12").Select
    Selection.Copy
    Sheets("Banco").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Cadastro").Select
    Range("H6,H8:H12").Select
    Range("H8").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("H15").Select
    
End Sub

 

[DiF]

Tópico movido de Fórum para testes de funcionalidades para Programação - outros

[Visitante]

Olá.

Veja se ajuda.

O código abaixo replica os valores da planilha "Cadastro", intervalo "H6:H12", na planilha "Banco", coluna "A", primeira célula abaixo da última preenchida e limpa as células "H6,H8:H12" da planilha "Cadastro".

 

Sub CopiarV2()
 Sheets("Banco").Cells(Rows.Count, 1).End(3)(2).Resize(7).Value = _
  Sheets("Cadastro").Range("H6:H12").Value
 Sheets("Cadastro").Range("H6,H8:H12").Value = ""
End Sub