Find & Copy Multiple Results Into Single Cell

I have a macro which scans column "AV" in Sheet1 and if a particular value is found it will copy certain cells from that row and paste them into Sheet2 on Row 10 starting with column "E".

With the current code I only paste a single instance, if the value is found more than once I only have the last one pasted. How can I best set this up so it will paste ALL found value results within Row 10?

The four copied results do not have to be in separate cells, it is actually best if the cells are combined. On Sheet2, cells E10-H10 can also be setup to have the data pasted across all four cells and that way Row Height AutoFit would take care of expanding the row's height to accommodate the possibly of having four or five sets of results being combined together and pasted into E10.

Rather than the typical result appearing as:

[TABLE]______E___F___G___H
10__1223 122 2222 2222
11__343 565 4554 5990
12__9755 334 6787 6788[/TABLE]

It is better for me if the data appears like this:

[TABLE]_____E____F____G____H
____1223 122 2222 2222, 343
10__565 4554 5990, 9755 334
____6787 6788
[/TABLE]

Is this even possible using a macro? It is currently being done using a Word document but I am wanting to automate the process and try to handle all the data sorting within Excel, if possible.



Sub Number()
Dim colSearch As Range
Dim celVal As Range
Dim celRow As Range
With Sheets("Sheet1")