Boa tarde!

Favor postar seu arquivo modelo!!

Temos várias postagens com soluções para algo similar, use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... 0planilhas

Att

Tá aqui o anexo. Enquanto isso vou dar uma olhada nesse tópico que vc disponibilizou. Obrigado.

Ah! E mais uma coisa! Teria como eu fazer com que quando o botão Adicionar for ativado, ele insira as informações na agenda sendo eles separados por marca e serviço? Tipo:

CCE - Particular
xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

AOC - Particular

xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

CCE - Garantia

xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

AOC - Garantia estendida

xxxxxxxx | xxxxxxxx | xxxxxxxxx
xxxxxxxx | xxxxxxxx | xxxxxxxxx

Agradeço se puder me ajudar com isso também, se não for pedir muito.

Boa tarde!!

Use esse código para o botão Adicionar

Sub AleVBA_14622_Adicionar()
Dim rng As Range
Dim I As Long
Application.ScreenUpdating = False
Set rng = Worksheets("Gerenciamento").Range("C4,C6,C8,C10,C12,C14")
    rng.Copy
    Worksheets("Agenda").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
    Worksheets("Gerenciamento").Range("C4,C6,C8,C10,C12,C14").ClearContents
     With Application
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
End Sub

Obs: Eu não havia lido sua ultima postagem

Att

Muito obrigado ^^ e quanto ao remover?

Boa tarde!!

Será mesmo, que você quer remover?

Sub AleVBA_14622_Remover()
    Dim c As Range
    Dim cell As Range
    Dim SrchRng As Range
    Dim SrchStr As String
    Set SrchRng = Worksheets("Agenda").Range("B4:B100")
    SrchStr = Worksheets("Gerenciamento").Range("C4")
    For I = SrchRng.Rows.Count To 1 Step -1
        If Cells(I, "B") = SrchStr Then Rows(I).Delete
    Next I
End Sub

Att

Será bastante útil. Obrigado ^^ e apenas mais uma coisa. Como posso completar o código de Adicionar para que a linha tenha as bordas igual às das outras.
De novo, muito obrigado por toda ajuda.

Infelizmente o Remover não funcionou... :'(

Boa tarde!!

Você pode usar o Gravador de Macros

Sub BordasGM()
'
' BordasGM Macro
'

'
    Range("B3:G99").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Eu vou lhe mandar o modelo, depois.
Att

Obrigado novamente! E vou esperar ^^

Boa tarde!!

Baixe o arquivo em:
https://www.sendspace.com/file/u1ciab

Faça todos os testes necessários!!

Att

Deu tudo certo! ^^ Obrigado por toda a ajuda. Ficou assim. (Segue anexo)

Boa tarde!!

Eu fico feliz em ajudar, obrigado pelo retorno!

Att