使用VBA excel在组内创建组

Question

所以在我的文件中我有一个看起来像这样的列：

4
4
4
5
5
5
4
3...

连续的4s需要组合在一起，然后连续5s在一起，5s是4的子组。我写了一个适用于5s的代码，但是一旦我为4s执行它，它就不会创建新的子组，但包括已存在的组中的4（或类似的东西）：

Sub Button1_Click()
Dim c As Integer
Dim i As Integer
Dim alpha As Integer
Dim lim As Long
lim = 15000
alpha = 4
Do while alpha <> 1
For i = 11 To lim
If Cells(i, 2) = alpha Then
c = c + 1
End If

If Cells(i, 2) <> alpha And c <> 0 Then
Range(Cells(i - 1, 2), Cells(i - c, 2)).Select
Selection.Rows.Group
c = 0
End If

Next
alpha = alpha - 1
Loop
End Sub