Erica,
Bom dia!

Sou iniciante em MACROS mais veja se com gravação atende a sua necessidade? Baixe o exemplo abaixo ...

Se a resposta fou útil, agradeça clicando na mãozinha lado superior direito.

Até mais,

Amigo, nao funcionou, dessa maneira ele esta dividindo a coluna, e tambem por macro grada nao da, pois nao sei quantas linhas tera na coluna 1 por exemplo, teria que verificar quantas linhas tem copiar depois ir pra colunar 2 verificar e copiar na coluna 6 depois do que ja tinha cido copiado da coluna 1.ok.

Boa tarde!!

Tente

Sub JuntarDados_AleVBA()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & LR).Copy Destination:=Range("F1")
    LR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B1:B" & LR).Copy Destination:=Range("F" & Rows.Count).End(xlUp).Offset(1)
End Sub

Funcionou, mais como comtem foumulas nas celulas que serao copiadas ele fica branco somente com as formulas, oque preciso para colar valores..?

Boa noite!

Tente isso..

Sub CopiarValores()
  
    Range("A1:B2000").Copy
    
     
    Selection.PasteSpecial Paste:=xlPasteValues
     
    Range("A1").Select
     
    Application.CutCopyMode = False
     
End Sub

Caso contrario explique detalhadamente!!!

Era exatamente isso mesmo, adapitei ao exemplo que envio acima e fucnionou do geito que precisava.

obrigada

Boa noite!!

Então por favor seja gentil e click na mãozinha e depois marque seu tópico como resolvido!!!

Veja em...
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Boa Noite Erica, segue um anexo com o codigo fonte, acho que realiza a rotina que você queria.
no aguardo...
bjs *