Bom dia!!

Em nossa base a vários post baseado neste assunto, use a pesquisa do fórum, ou poste seu arquivo modelo!!
http://www.google.com.br/cse?cx=partner ... specificas

Att

Bom dia,

Peço desculpas. Agradeço sua atenção.

Agora anexei um exemplo. No exemplo em anexo está bem simples, porém onde quero implementar a macro existem outras abas na mesma pasta de trabalho.

Obrigado.

Boa tarde!!

tente

Option Explicit
Sub AleVBA_14761()
Dim ws As Worksheet
Dim sh As Worksheet
 
Set sh = Plan3
 
    For Each ws In Sheets
        If ws.Name <> "Unir" Then
            ws.Range("A2", ws.Range("J" & Rows.Count).End(xlUp)).Copy sh.Range("A65536").End(xlUp)(2)
        End If
    Next ws
End Sub

Att

Boa Tarde,
Até funcionou, porem não me atente. Não me atende pelo simples fato, minha pasta de trabalho possui várias abas, dentre elas, preciso unir somente as duas abas "BD_Saida" e "BD_Entrada".
Outro detalhe, ao clicar no botão que une as informações, as informações não dupliquem, preciso que seja atualizada.
Desde já agradeço sua atenção.

Boa tarde!!
Essa eu consigo resolv
er:

té funcionou, porem não me atente. Não me atende pelo simples fato, minha pasta de trabalho possui várias abas, dentre elas, preciso unir somente as duas abas "BD_Saida" e "BD_Entrada".

Outro detalhe, ao clicar no botão que une as informações, as informações não dupliquem, preciso que seja atualizada.
Desde já agradeço sua atenção.

Essa parte eu não entendi!

Att

Boa tarde!!

teste o código abaixo, ele vai resolver uma parte, a outra eu preciso entender!

Option Explicit
Sub AleVBA_14761V2()
    Dim lr As Long, lr2 As Long
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    
    Set ws1 = Sheets("BD_Saida")
    Set ws2 = Sheets("Unir")
    Set ws3 = Sheets("BD_Entrada")
    
    lr = ws1.Cells(Rows.Count, "A").End(xlUp).Row
    lr2 = ws3.Cells(Rows.Count, "A").End(xlUp).Row
    ws1.Range("A2:J" & lr).Copy ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    ws3.Range("A2:J" & lr).Copy ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
End Sub

Se poder detalhar essa parte:

Outro detalhe, ao clicar no botão que une as informações, as informações não dupliquem, preciso que seja atualizada.
Desde já agradeço sua atenção.

Att

Seria isso mesmo;
"O outro detalhe é que ao clicar no botão a macro exclui-se as informação pesquisadas anteriormente e trouxesse novas informações". Mas eu criei uma macro que limpa e inclui-la antes de seu código, funcionou.
Se você tive um outro código mais leve para executar a limpeza, fico grato.
Muito obrigado.

Boa tarde!!

Verifica se é isso?

Option Explicit
Sub AleVBA_14761V2()
    Dim lrA As Long, lrB As Long
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    
    Set ws1 = Sheets("BD_Saida")
    Set ws2 = Sheets("BD_Entrada")
    Set ws3 = Sheets("Unir")
    Application.ScreenUpdating = 0
        lrA = ws1.Cells(Rows.Count, "A").End(xlUp).Row
        lrB = ws2.Cells(Rows.Count, "A").End(xlUp).Row
        ws3.Range("A2:J90000").ClearContents 'Limpa os dados velhos da guia "Unir"
        ws1.Range("A2:J" & lrA).Copy ws3.Cells(Rows.Count, "A").End(xlUp).Offset(1)
        ws2.Range("A2:J" & lrB).Copy ws3.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    Application.ScreenUpdating = 1
End Sub

Por favor click na mãozinha
Att

Boa noite!

Show de bola..
Grato pela sua atenção.
Abraço