Amigo, não entendi bem o que precisa. Como seria?

produto1 + produto2 + produto3 = produto1produto2produto3

ou

produto1 + produto2 + produto3----produto1
produto3 + produto4-----------------produto2
-----------------------------------------produto3
-----------------------------------------produto3
-----------------------------------------produto4

Ola Engeel2014
Hoje eu tenho 4 colunas de produtos, eu preciso unir essas 4 em apenas 1, colocando um valor abaixo do outro.

produto 1 | produto 2 | produto 3 | produto 4 | = DEVE FICAR ASSIM ---|Produtos |
------------|-------------|-------------|------------|------------------------------|produto 1|
------------|-------------|-------------|------------|------------------------------|produto 2|
------------|-------------|-------------|------------|------------------------------|produto 3|
------------|-------------|-------------|------------|------------------------------|produto 4|

Amigo, minha dúvida é pelo seguinte, como pude perceber tem linhas que possui mais de um produto cadastrado, e quando eu for gerar a lista que você quer com cada produto debaixo do outro, esta coluna terá um tamanho maior que as outras colunas da planilha, entendeu? Se em cada linha tiver somente um dos produtos é fácil de fazer, com formula mesmo. Vou ver aqui e lhe retorno.

exatamente, essa é minha duvida tbm, eu nao consegui gerar justamente por isso.

Porque eu vou fazer um relatorio da seguinte forma:

produtos listados para "solicitações de troca", "solicitações de receita".

e colocando os produtos um abaixo dos outros apenas, nao irei conseguir filtrar de forma correta.

aceito dicas de como fazer.

Caro amigo, cole a macro abaixo dentro do seu projeto e execute e veja se dá o resultado esperado. Qualquer dúvida é só avisar. Aguardo um retorno seu.

Sub Planilhando()

Dim UltimaLinha1 As Long
Dim UltimaLinha2 As Long
Dim UltimaLinha3 As Long
Dim UltimaLinha4 As Long

Sheets("COLAR AQUI").Select
Range("T2:T65000").Select
Selection.ClearContents

UltimaLinha = Cells(Rows.Count, "A").End(xlUp).Row

Range("I2:I" & UltimaLinha).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "spk"
Range("A1").Select
ActiveSheet.Paste
Sheets("COLAR AQUI").Select

Range("l2:l" & UltimaLinha).Select
Selection.Copy
Sheets("spk").Select
UltimaLinha1 = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & UltimaLinha1).Select
ActiveSheet.Paste
Sheets("COLAR AQUI").Select

Range("o2:o" & UltimaLinha).Select
Selection.Copy
Sheets("spk").Select
UltimaLinha2 = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & UltimaLinha2).Select
ActiveSheet.Paste
Sheets("COLAR AQUI").Select

Range("r2:r" & UltimaLinha).Select
Selection.Copy
Sheets("spk").Select
UltimaLinha3 = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & UltimaLinha3).Select
ActiveSheet.Paste

Columns("a:a").Select 'Adapte para a coluna que quiser
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

UltimaLinha4 = Cells(Rows.Count, "A").End(xlUp).Row
Range("a1:a" & UltimaLinha4).Select
Selection.Copy
Sheets("COLAR AQUI").Select
Range("T2").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets("spk").Select
ActiveWindow.SelectedSheets.Delete
Sheets("COLAR AQUI").Select
Range("A2").Select
Application.DisplayAlerts = True

End Sub

Att.: Lucélio

Muito obrigadoooo!! deu certo aqui, tive que fazer alguns ajustes..para resolver o problema da nova coluna ser maior que as outras...

Obrigado!