Sub lap()
Dim a, b, c As Long
Dim endrow As Long
Dim kq1()
endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
arr2 = Sheet2.Range("A1:O" & endrow).Value
For c = 1 To 14
ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c)
For a = 1 To (UBound(arr2, 1) - 1)
For b = 2 To UBound(arr2...