使用JS对每7个列表项进行分组

Question

所以我试图在几周（7天）内对列表项（天）进行分组。但是我得到了七合一，然后是另外七个......等等。

有人可以在正确的道路上取悦我/。 ：D请问我做错了什么？

这是代码https://jsfiddle.net/c2f2h9yb/354/

Row = 2
Col = "A"
Row2 = 2
Col2 = "B"
x = 1
Range(Col & Row).Activate
ws1.Range(Col2 & 1).Value = ActiveCell.Value
While ActiveCell.Value <> 0
        While ws1.Range("AA" & Row2).Value <> 0
            If InStr(1, ws1.Range("AA" & Row2), ActiveCell.Value) Then
                 ws1.Range(Col2 & Row2).Value = ActiveCell.Value
                   Row2 = Row2 + 1
            Else
                ws1.Range(Col2 & Row2).Value = "N/A"
                ws1.Range(Col2 & Row2).Interior.Color = RGB(1, 150, 150)
                Row2 = Row2 + 1
            End If
        Wend
        Col2=Col2+1
        Row = Row + 1
        Range(Col & Row).Activate
Wend