vba数组 bom层级

级别中最小数有3个，那就是说有3个顶级物料代码。
后面输出表格为什么屏蔽掉了>=3级别的数据，还有208、202是什么也搞不懂 。

Option Explicit
Sub abc()
　Dim a, i, j, k, m, p
　a = [a1].CurrentRegion.Offset(1).Resize(, 5).Value
　ReDim b(1 To UBound(a) - 1, 1 To 6)
　For i = 1 To UBound(a) - 1
　　If a(i + 1, 1) = 1 Or i = UBound(a) - 1 Then
　　　If left(a(p + 1, 2), 3) = "208" Then
　　　　For j = p + 1 To i
　　　　　m = m + 1
　　　　　For k = 1 To 5
　　　　　　b(m, k) = a(j, k)
　　　　　Next
　　　　　b(m, k) = a(p + 1, 3)
　　　　Next
　　　ElseIf left(a(p + 1, 2), 3) = "202" Then
　　　　For j = p + 1 To i
　　　　　If a(j, 1) < 3 Then
　　　　　　m = m + 1
　　　　　　For k = 1 To 5
　　　　　　　b(m, k) = a(j, k)
　　　　　　Next
　　　　　End If
　　　　Next
　　　Else
　　　　For j = p + 1 To i
　　　　　m = m + 1
　　　　　For k = 1 To 5
　　　　　　b(m, k) = a(j, k)
　　　　　Next
　　　　Next
　　　End If
　　　p = i
　　End If
　Next
　[g2].Resize(m, 6) = b
End Sub