Need to edit code to work with this spreadsheet please.

[SOLTEC]

Sub ConcatImageGroups()
Dim LastRow As Long, Ar As Range
LastRow = Cells(Rows.Count, "M").End(xlUp).Row
Range("O2:O" & LastRow) = Evaluate("IF(M2:M" & LastRow & "=1,1,"""")")
For Each Ar In Range("O2:O" & LastRow).SpecialCells(xlBlanks).Areas
Ar(1).Offset(-1).Resize(Ar.Count + 1) = Join(Application.Transpose(Ar(1). _
Offset(-1, 1).Resize(Ar.Count + 1)), ";")
Next
End Sub

Excel 2010
	A	B	C
1	ID	Images	Combination Images
2	4658	1000.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
3	4658	1001.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
4	4658	1002.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
5	4658	1004.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
6	4658	1005.jpg	1000.jpg;1001.jpg;1002.jpg;1003.jpg;1004.jpg;1005.jpg;
7	4703	1024.jpg	1024.jpg;1025.jpg;1026.jpg;
8	4703	1025.jpg	1024.jpg;1025.jpg;1026.jpg;
9	4703	1026.jpg	1024.jpg;1025.jpg;1026.jpg;
10	4913	1031.jpg
11	4913	1032.jpg
12	4939	1035.jpg
13	4939	1036.jpg
14	4939	1037.jpg
15	4939	1038.jpg
16	5047	1045.jpg
17	5047	1046.jpg
18	5047	1047.jpg
19	5047	1048.jpg
20	5079	1051.jpg
21	5079	1057.jpg
22	5079	1058.jpg
23	5079	1059.jpg
24	5135	1060.jpg
25	5135	1061.jpg
26	5135	1062.jpg
27	5135	1063.jpg
28	5135	1064.jpg
29	5135	1065.jpg
30	5135	1066.jpg
31	5135	1067.jpg
32	5135	1070.jpg
33	5135	1071.jpg
34	5135	1072.jpg
35	5135	1073.jpg
36	5135	1074.jpg
37	5135	1079.jpg
Sheet5

Thank you in advance for all assistance. It is greatly appreciated.

 

[SOLTEC]

Excel 2010
	A	B	C
4	4658	1000.jpg	#NAME?
5	4658	1000.jpg	#NAME?
6	4658	1000.jpg	#NAME?
7	4658	1000.jpg	#NAME?
8	4658	1000.jpg	#NAME?
9	4658	1000.jpg	#NAME?
10	4658	1000.jpg	#NAME?
11	4658	1001.jpg	#NAME?
12	4658	1001.jpg	#NAME?
13	4658	1001.jpg	#NAME?
14	4658	1001.jpg	#NAME?
15	4658	1001.jpg	#NAME?
16	4658	1001.jpg	#NAME?
17	4658	1001.jpg	#NAME?
18	4658	1001.jpg	#NAME?
19	4658	1001.jpg	#NAME?
20	4658	1002.jpg	#NAME?
21	4658	1002.jpg	#NAME?
22	4658	1002.jpg	#NAME?
23	4658	1002.jpg	#NAME?
24	4658	1002.jpg	#NAME?
25	4658	1002.jpg	#NAME?
26	4658	1002.jpg	#NAME?
27	4658	1002.jpg	#NAME?
28	4658	1002.jpg	#NAME?
29	4658	1004.jpg	#NAME?
30	4658	1004.jpg	#NAME?
31	4658	1004.jpg	#NAME?
32	4658	1004.jpg	#NAME?
Sheet2

Cell Formulas
Range	Formula
C1	=CatIf(INDEX($A$2:$A$37=A2, 0), $B$2:$B$37, "; ")
C2	=CatIf(INDEX($A$2:$A$37=A3, 0), $B$2:$B$37, "; ")
C3	=CatIf(INDEX($A$2:$A$37=A4, 0), $B$2:$B$37, "; ")
C4	=CatIf(INDEX($A$2:$A$37=A5, 0), $B$2:$B$37, "; ")
C5	=CatIf(INDEX($A$2:$A$37=A6, 0), $B$2:$B$37, "; ")
C6	=CatIf(INDEX($A$2:$A$37=A7, 0), $B$2:$B$37, "; ")
C7	=CatIf(INDEX($A$2:$A$37=A8, 0), $B$2:$B$37, "; ")
C8	=CatIf(INDEX($A$2:$A$37=A9, 0), $B$2:$B$37, "; ")
C9	=CatIf(INDEX($A$2:$A$37=A10, 0), $B$2:$B$37, "; ")
C10	=CatIf(INDEX($A$2:$A$37=A11, 0), $B$2:$B$37, "; ")
C11	=CatIf(INDEX($A$2:$A$37=A12, 0), $B$2:$B$37, "; ")
C12	=CatIf(INDEX($A$2:$A$37=A13, 0), $B$2:$B$37, "; ")
C13	=CatIf(INDEX($A$2:$A$37=A14, 0), $B$2:$B$37, "; ")
C14	=CatIf(INDEX($A$2:$A$37=A15, 0), $B$2:$B$37, "; ")
C15	=CatIf(INDEX($A$2:$A$37=A16, 0), $B$2:$B$37, "; ")
C16	=CatIf(INDEX($A$2:$A$37=A17, 0), $B$2:$B$37, "; ")
C17	=CatIf(INDEX($A$2:$A$37=A18, 0), $B$2:$B$37, "; ")
C18	=CatIf(INDEX($A$2:$A$37=A19, 0), $B$2:$B$37, "; ")
C19	=CatIf(INDEX($A$2:$A$37=A20, 0), $B$2:$B$37, "; ")
C20	=CatIf(INDEX($A$2:$A$37=A21, 0), $B$2:$B$37, "; ")
C21	=CatIf(INDEX($A$2:$A$37=A22, 0), $B$2:$B$37, "; ")
C22	=CatIf(INDEX($A$2:$A$37=A23, 0), $B$2:$B$37, "; ")
C23	=CatIf(INDEX($A$2:$A$37=A24, 0), $B$2:$B$37, "; ")
C24	=CatIf(INDEX($A$2:$A$37=A25, 0), $B$2:$B$37, "; ")
C25	=CatIf(INDEX($A$2:$A$37=A26, 0), $B$2:$B$37, "; ")
C26	=CatIf(INDEX($A$2:$A$37=A27, 0), $B$2:$B$37, "; ")
C27	=CatIf(INDEX($A$2:$A$37=A28, 0), $B$2:$B$37, "; ")
C28	=CatIf(INDEX($A$2:$A$37=A29, 0), $B$2:$B$37, "; ")
C29	=CatIf(INDEX($A$2:$A$37=A30, 0), $B$2:$B$37, "; ")
C30	=CatIf(INDEX($A$2:$A$37=A31, 0), $B$2:$B$37, "; ")
C31	=CatIf(INDEX($A$2:$A$37=A32, 0), $B$2:$B$37, "; ")
C32	=CatIf(INDEX($A$2:$A$37=A33, 0), $B$2:$B$37, "; ")

This is the results of the function run.