Sorting export Data

Change

                    For ii = 2 To UBound(a, 2)
                        If IsDate(a(n, ii)) Then
                            If Not AL.Contains(a(n, ii)) Then AL.Add a(n, ii)
                            .Item(a(i, 1))(a(n, ii)) = a(i, ii)
                        End If
                    Next

to

                    For ii = 2 To UBound(a, 2)
                        If IsDate(a(n, ii)) Then
                            If Not AL.Contains(a(n, ii)) Then AL.Add a(n, ii)
                            .Item(a(i, 1))(a(n, ii)) = .Item(a(i, 1))(a(n, ii)) & _
                            IIf(.Item(a(i, 1))(a(n, ii)) <> "", ", ", "") & a(i, ii)
                        End If
                    Next