求高手为下面的excel VBA代码编写注释 请将注释写的尽量详细些，谢谢

Question

Sub yy()
Dim Arr, i&, Brr
Sheet1.Activate
Arr = [a1].CurrentRegion
ReDim Brr(1 To (UBound(Arr) - 2) / 3, 1 To 6)
For i = 3 To UBound(Arr) Step 3
m = m + 1
For j = 0 To 2
Brr(m, j + 1) = Arr(i + j, 4)
Brr(m, j + 4) = Arr(i + j, 5)
Next
Next
[h4].Resize(UBound(Brr), 6) = Brr
End Sub

Answer 1

Sub yy()'定义过程名称
Dim Arr, i&, Brr'定义两个数组，一个长整型数字变量，一个数组
Sheet1.Activate'激活Sheet1
Arr = [a1].CurrentRegion'从A1单元格扩展的连续区域，复制给数组arr
ReDim Brr(1 To (UBound(Arr) - 2) / 3, 1 To 6)'定义brr的维数和每一维的上下限
For i = 3 To UBound(Arr) Step 3'循环遍历，从3开始，到arr的上限减去二结束，步长为3
m = m + 1'每循环一次m增加1
For j = 0 To 2'子循环，从0到2，步长为1
Brr(m, j + 1) = Arr(i + j, 4)'brr（现在把它看成单元格)第m行第j+1列赋值为arr的第i+j行，第四列
Brr(m, j + 4) = Arr(i + j, 5)'同上理解
Next'子循环结束
Next‘父循环结束
[h4].Resize(UBound(Brr), 6) = Brr‘定位到当前sheet的H4单元格开始扩展，向下行数：brr的上限；向右列数：6
End Sub'过程结束