Código para salvar dados de um célula mesclada e outra célula de outra planilha

[marcelo carlos]

Boa noite a todos

Peço ajuda para quem puder me socorrer com o seguinte problema:necessito fazer meu código copiar dados de uma célula que está mesclada e formatada com bordas em negrito(código 1)do meu formulário  e colar esses dados em outra célula de outra planilha com bordas padrão (código 2).Não estou conseguindo colar somente os dados da célula sem a mescla. 

 

    (1)With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin

 

     (2)  With Selection.Borders(xlEdgeLeft)

         .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With