Combine Multiple cells into Single Cells

Hi Guys,

I want to combine multiple cells into a single cell using the Chr(10) operation. The cells that are to be combined are called 'data sets' - they are always 7 cells in size for columns B to H however they are between 1-3 in size for columns A. Each of these cells exist above/below each other in the same column.

TODS = (TopOfDataSet Cell)

Cells(TODS.Row,TODS.Column).Value = Cells(TODS.Row + 1,TODS.Column).Value & Chr(10) & Cells(TODS.Row + 2,TODS.Column).Value & Chr(10) & _
Cells(TODS.Row + 3,TODS.Column).Value & Cells(TODS.Row + 4,TODS.Column).Value & Cells(TODS.Row + 5,TODS.Column).Value & _
Cells(TODS.Row + 6,TODS.Column).Value & Cells(TODS.Row + 7,TODS.Column).Value

The tricky bit to it is finding the TODS cell, as there can be multiple Datasets cascaded on top of one another

Regards

You have already asked your question in that thread itself and you have got a solution as well. Why bump this thread then?

I will mark this thread as duplicate and close it.