VBA 항목별 행렬전환 문의

Sub new_change()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("예시2")

Dim LNG, LNG1, i, j, m, mxrow As Long
LNG = ws.Range("G1")
LNG1 = ws.Range("G2")
mxrow = ws.Range("B7").End(xlDown).Row

Dim Arr As Variant
ReDim Arr(1 To LNG, 1 To LNG1)  '좌측은 반복붙일 행의 수, 우측은 항목의 종류 = 열의 수

    For i = 7 To mxrow
        For j = 0 To LNG - 1    'j에는 행의 수를 담음
            For m = 0 To LNG1 - 1
                Arr(j + 1, m + 1) = ws.Cells(i, 2 + j + m * LNG)
            Next
        Next
        Range(Cells(7 + LNG * (i - 7), 12), Cells(6 + LNG * (i - 6), 12)) = Cells(i, 1)
        ArrayToRng ws.Range("M" & 7 + LNG * (i - 7)), Arr
    Next

End Sub